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Sundog Systems proudly presents the first 512K arcade game 
available lor your CoCo III 1 It you don't have 51 2K. you will 
want to get it Just tor this game 1 The evil Sinislaars have in- 
vaded the galaxy and it tails to you to destroy them These 
fiends will attempt to hold you with a constant barrage ol 
drone ships while they muster their strength, and eventually 
find and obliterate you. Your mission Is to mine the myriad 
asteroids in search ol the precious ore which can Be refined 
Into slnibombs. your only weapon against the Simstaars. 
Many surprises await as you advance through the increasing- 
ly difficult stages. Experience the fast-paced action of 512K 
packed with spectacular graphics, sound effects, and voices' 
Dozens of stages will Keep you 
coming back for more. Req 
512K CoCo III and disk drive. 

Paladin s legacy 
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Years after the mysterious hero called the Paladin disap- 
peared, loathsome creatures, spawned from the Bowels of the 
planet, have overrun the land of Tarlnth and captured the 
king. The situation is grave, for without the king's Influence, 
the three nations will not unite against the growing evil. Only 
one pure of heart can master the five magics and there&y 
1uH 'i the Paladin's legacy and save the realm. Adventure Into 
this vast land ot fantasy, Interracl with its inhabitants, explore 
the ruinous mines, and do battle with supernatural forces Ex- 
perience the magic of the quest In this fast-paced role-playing 
adventure, all In the laminar quick scrolling, bird's eye play 
format. v ou will love the feeling ot playing an action game 
with great graphics, animation, and sound effects. But all the 
while solving one of Ihe most involved adventures yet Tarlnth 
awaits Its savior' Available for 
all CoCo modem Req 64K 



Visa, Mastercard. Check, Money Order, and COD 
(USA only, please) accepted All foreign orders 
must be sen' in US currency Money Orders Include 
$2.50 for shipping In USA and Canada $5.00 
Foreign. $3 00 extra for COD orders. PA residents 
add 6% sales tax Dealer inquiries welcome 
Authors: we're looking lor new software' 
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Something is killing off the memOers of the legendary order ol 
Kyum-Gai. In desperation, its leaders have called upon the 
powers of the life stone to resurrect you, their greatest hero: 
the NINJA GAI-DAN Now, you must find and destroy the evil 
forces Behind this dark plot Use a multitude of martial arts 
moves to defeat your enemies, obtain treasure and weapons, 
and evade obstacles. Kyum-Gai: to oe Ninja uses the most 
detailed 320x200 resolution, 16 color graphics, Ihe highest 
quality digital sound effects, and spectacular animation to 
bring you the greatest martial arts game your CoCo III has 
ever seen. Created by the author of Warrior King, this incredi- 
ble arcade game is a definite must for your CoCo III software 
collection . Join the ranks of the Kyum-Gai and find out what it 
means to be Ninja! Req. 128K 
CoCo III, disk drive, and 
joystick (2-button joystick 
supported). 



SountiTrax is an unprecedented sound sequencing system for 
the CoCo Ml it requires no extra hardware (i.e. midl 
keyboards, cables, etc.) All of it is contained in your CoCo 
This amazing program will read in a digitized sound and play 
Back all of the notes In the octave in which It was recorded 
And it's POLYPHONIC 1 You can sequence up to lour voices at 
one time, and not only the same sound 1 With as many voices 
as can Be held in your memory, depending on the song, you 
can create a score ot up to THREE OAYS in length using 
drums, horns, strings, even your own voice! And you can 
play them all together! Using the Built-in windowing point- 
and-click editor, you can cut, paste, even synchronize the 
score to just ihe way you like it Use the pre-sampled sounds 
from the disk Included, or make your own By Importing them 
from some of the more popular digitizers available. Also. 
CALL tor the availability ot extra sound sample disks' Get it 
today; you won't believe your 
ears! Req 128K CoCo III, 
mouse/|oystick, and disk 
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In Quest 

128KCOCO... 
Hint Sheet: $3.95 



o III. $29.95 



Kung-Fu Dude 
64K CoCo. $24.95 



Hall ol the King I. II or III 

$29.95 each 

Hall ol the King Trilogy 

$74 95 



Champion Dragon Blade White Fire ot Eternity 

$19.95 $19.95 $19.95. 

"All require 64K CoCo. 
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Tandy 1400 FD $1219 
Tandy 102 32K $439 
Tandy WP-2 $279 



Color Computer 3 
W/128K Ext. Basic $129* 




Tandy 1000 SL/2 $749 
Tandy 1000 TL/2 $929 




DMP-133 $289 




BIG SAVINGS ON A FULL COMPLEMENT OF RADIO SHACK COMPUTER PRODUCTS 



COMPUTERS 




COLOR COMPUTER MISC. 




COCO Util II by Mark Data 


39.95 


Tandy 1000 HX1 Drive 256K 


259.00- 


Radio Shack Drive Contoller 


79.00- 


COCO Max III by Colorware 


79.95 


Tandy 2500 XL 1 Drive 1 Meg 


1119.00 


Extended Basic Rom Kit(28 pin) 


14.95 


MaxlObyColorware 


79.95 


Tandy 3000 NL1 Drive 51 2K 


869.00- 


64K Ram Upgrade Kit(2 or 8 chip) 


39.00 


AutoTerm by PXE Computing 29.95 


39.95 


Tandy 2800 HD 1 Drive 1 Meg 


2529.00 


Radio Shack Deluxe Keyboard Kit 


24.95 


TW-80 by Spectrum (C0C03) 


39.95 


Tandy 1100 FD1 Drive 640K 


779.00 


HI-RES Joystick Interface 


8.95 


Telewriter 64 49.95 


59.95 


PRINTERS 




Color Computer Deluxe Mouse 


44.00 


Telewriter 128 


79 95 


Radio Shack DMP-107 120 CPS 


219 00 


Multi Pak Pal Chip for COCO 3 


14.95 


Elite Word 80 


79.95 


Radio Shack DMP-442 300 CPS 


539.00 


COCO 3 Service Manual 


29.95 


Elite Calc 3.0 


69.95 


Radio Shack DMP-133 160 CPS 


289.00 


Serial to Parallel Converter 


59.95 


CoCo 3 51 2K Super Ram Disk 


1995 


Radio Shack DWP-230 Daisy Wheel 


179.00 


Radio Shack Deluxe Joystick 


13.95- 


Home Publishing by Tandy (CoCo3) 


35.95 


Tandy LP-1000 Laser Printer 


1499.00- 


Magnavox 8515 RGB Monitor 


299.00 


Sub Battle Sim. by Epyx (CoCo3) 


26.95 


Radio Shack -DMP'-240 192 CPS 


399.00 


Magnavox Green or Amber Monitor 


99.00 


Thexder by Sierra (CoCo3) 


22.45 


Star Micronics NX-1000 Rainbow 


269.00 


Radio Shack CM-8 RGB Monitor 


249.00 


Kings Quest III by Sierra (CoCo3) 


31.45 


Panasonic KXP 1180 192 CPS 


219.00" 


Radio Shack VM-4 Green Monitor 


99.00 


Flight Sim.ll by SubLogic (CoCo3) 


31.45 


Panasonic KXP 1191 240 CPS 


259.00* 


PBJ OK COCO 3 Upgrade Board 


24.95 


OS-9 Level II by Tandy 


71.95 


Panasonic KXP 1124 192 CPS 


329.00* 


PBJ512K COCO 3 Upgrade 


139.00 


OS-9 Development System 


89.95 


Okidata 320 300 CPS 


369.00 


Tandy OK COCO 3 Upgrade Board 


29.95 


Multi-View by Tandy 


44.95 


Okidata 390 270 CPS 24 Wire HD 


515.00 


Tandy 512K COCO 3 Upgrade 


149.00 


VIP Writer (disk only) 


69.95 


OKI Laser 400 4PPM 


999.00 


COLOR COMPUTER SOFTWARE 




VIP Integrated Library (disk) 


149.95 


MODEMS 

Radio Shack DCM-6 


52.00 


TAPE 

The Wild West(COC03) 


DISK 

25.95 


Prices are subject to change without notice. 
Please call lor shipping charges. Prices In our re- 


Radio Shack DCM-7 


85.00 


Worlds Of Flight 34.95 


34.95 


tall store may be higher. Send lor complete 


Practical Peripheral 1200 Baud 


149.00 


Mustang P-51 Flight Simul. 34.95 


34.95 


catalog 




Practical Peripheral 2400 Baud 


179.00 


Flight 16 Flight Simul. 34.95 


34.95 


'Sale prices through 4/30/90 





CALL TOLL FREE 
1-800-343-8124 

• LOWEST POSSIBLE PRICES 

• BEST POSSIBLE WARRANTY 

• KNOWLEDGEABLE SALES STAFF 

• TIMELY DELIVERY 

• SHOPPING CONVENIENCE 

VISA 
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P.O. Box 1094 
480 King Street 
Littleton, MA 01460 



SINCE 1973 



IN MASSACHUSETTS CALL (508) 486-31 93 



TRS-80 Is a registered trademark ol Tandy Corp. 




April 1990 
Vol. IX No. 9 



Features 
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Icarus in Search 
of Wings 

Nick Bradbury 

Here's a penguin who believes 

icebergs will soon be yesterday's 

transportation 

20 ^ 

Reckoning With the 
CoCo 

Bill Minze 

A program that turns the CoCo into 
a printing calculator 

24 ^ 

The Golden Retriever 

Shane Messer 

A free-form program that lets you 

create unique databases 



44 * 

Predicting Profits 

David Macias 

A helpful program lor those plan- 
ning a career in business 

64 ^ 

Another Form 

Benjamin Brunotte 
Creating forms on IBM-compatible 
printers 



67 



^ 



Show the Facts 

Bryan Stephens 
A 3D bar graph program for chart- 
ing information 



72 ^ 

Completing the 
Analyzer Project 

Dennis H. Weide 

A handy tool for testing low-speed 

logic circuits 

92 

Adding a Disk Drive 
to Your CoCo: Part 2 

Marty Goodman 

A guide to adding disk drives to the 

CoCo 



106 ^ 

The File Handler 

Richard Estrado 

A new routine lor an old chore 



116 
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The Price is Right 

Gordon E. Fouts 

A program to make routine number 

juggling less routine 
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Barden's Buffer 

William Barden, Jr. 
Something to get your files 
circulating 

86 

BASIC Training ^ 

Joseph Kolar 

More incentive to go forth and 

create 

113 

Breakpoint 4& 

Greg Law 

Talking about conversions and 

diversions 

59 

CoCo Consultations 

Marty Goodman, M.D. 
Just what the doctor ordered 

62 

Database Report 

Eddie Kuns 

Name that tune with UltiMusElll 

85 

Education Notes ^ 

Steve Blyn 
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52 

KISSable OS-9 
Dale Puckett 
A new look for OS-9 

10 

Print#-2 

Lonnie Falk 
Editor's notes 

110 

Turn of the Screw 

Tony DiStefano 
Part 3 of the digital lesson 
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Wishing Well ^ 

Fred B. Scerbo 

A program that strikes a chord 

124 

Wrapping The Rainbow 

Cray Augsburg 

How many colors in a Rainbow? 

"BASICally Speaking" will return 
next month. 
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48 

Keeping a Tab on Your Tap 
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48 
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Joseph Pendall 

49 
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Today? 
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Title Screen Splashdown 
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^«The cassette tape/disk symbols beside features and columns 
^* indicate the program listings with those articles are on this 
month's RAINBOW ON TAPE and RAINBOW ON DISK. Those with 
only the disk symbol are not available on RAINBOW ON TAPE. 
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Local Access Express 

Editor: 

I would like lo comment on the so- 
called local access phone numbers. I don"t 
know about most folks, but to me local 
means not dialing a I and area code before 
the number. I live in a hub of over 300.000 
people where there are no local access 
phone numbers. The least expensive way to 
connect to Delphi or any other service is to 
call a number that is local only if you drive 
north for an hour. 1 had to give up on Delphi 
because it cost me $16.34 for 1 14 minutes 
of phone time. That doesn't include con- 
nect time for Delphi, which would have 
only cost around S 14 for 2 hours. 

I would like to use the services on Del- 
phi, but I can't even use Delphi Advantage 
because of the phone charge for the mini- 
mum 5-hour connect time. I know other 
people around here with the same problem. 
I'm sure we're not the only ones who feel 
this way. 

I don't know what it would take to get 
Tymnet or Telenet to hook up something in 
our area, but until someone does, the com- 
puter services and people that could be 
using them will be missing out on a great 
deal of knowledge. 

Hampton Thomas 
White Post, Virginia 

You can send a petition to Telenet and 
Tymnet to gel a local access node installed. 
While it is not always successful, both 
Telenet and Tymnet will look into the mat- 
ter if they receive enough requests. Send 
your petitions in Telenet, USSprint, fnc 
12490 Sunrise Valley Drive. Reston, VA 
22096: and Tymnet. P.O. Box 49019. San 
Jose. CA 95 161 -9019. 



Sprucing up My Stationery 

Editor: 

I would like to be able to run the program 
Stationery Station (rainbow. January 1989. 
Page 106) using a Star NX- 1 000 printer but 
do not know which lines tochange and how 
to change them. 

Jerry K. Wollin 

10918 W. Highland Rd. 

Mequon. W 1 53092 

The Mystery of Phantomgraph 

Editor: 

1 recently bought Phantomgraph, an 
OS-9 multiple-graph program, for my CoCo 
3. 1 need a graphics representation for yearly 
sales figures on a weekly basis, so 1 need to 
include 52 pieces of information. This 
program has two print options. Tandy or 
IBM. Since I have an Epson RX-80. it 
should work in the IBM mode. For some 
mysterious reason it does not. All I get is a 
repetitive horizontal line. The program was 
written by Greg Zumwalt. so if he or some- 
one else out there can help or suggest 
another program, please let me know. 

.I.K. Sinrod 

16 Scranton Ave. 

Lynhrook. New York 

DeskMate 3 on a Disk 

Editor: 

Here is a little addition to the letter that 
appeared in the May '89 issue of THE rain- 
bow concerning putting DeskMate 3 on 
one disk. 

This applies to those who have 40-track 

disk drives; :inrt an RCiR monitor. First boo! 

OS-9 Level 2. put yourcustom DeskMate 3 
disk in Drive I . then load the copy and ed i t 
commands. Next copy the montype and 



modpatch commands to the commands 
directory of your DeskMate disk. 

Now type chd /dl and press ENTER. 
Then type edit startup and type the 
following listing: 

E:modpatch -s <patch 
E:montype r 

Now quit the editor. Type edit patch and 
type in the following listing: 

E:L dO 

E:C 14 00 03 

E:V 

E:L dl 

E:C 14 00 03 

E:V 

Make sure that at the E: prompt you 
insert a space after the colon before you 
type in a line. Now quit the editor and 
reboot the computer. Your disk drives will 
run at six milliseconds, and the colors on 
your screen will look much better. Hint: 
don't be surprised if you have to go back to 
the Display icon to adjust the colors of the 
different screens under DeskMate. 

Ernest Bazzinotli. Jr. 
Dorchester. Massachussetts 

Understanding the Interface 

Editor: 

If I wait long enough. THE RAINBOW 
comes through. Thanks to William Barden. 
Jr., I know how the Hi-Res Joystick Inter- 
face works. I had almost decided it was a 
%\U mistake. 

There is. however, one point of confu- 
sion in the article. The CoCo does not use 
either a D/A converter (which would be 
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CHI Pages ^^y 1 1 CoCo Graphics Designer Plus 

> r ^.W^* | Create beautiful greeting cards, signs and banners for holidays 



by Walter Bayer 
The ultimate desktop publishing program for 
the CoCo 3. Pull-down menus, icons & dialog boxes, 
drawing tools (create boxes, polygons, rays, circles, elip- 
ses, brush shapes), cut, copy, stamp, paste, zoom, flip, 
enlarge/reduce, rotate, stretch, undo, import any ASCII 
text, 2/3 columns & page preview. Includes 14 fonts & 60 
pieces of clip art. Req. CoCo 3, RGB/ Monochrome 
Monitor, Min 1 drive, Tandy Hi-Res Interface, Joys- 
tick/mouse & DMP 105/106/Epson/Gemini & Compatible 
Printer. Only $49.95. w / Hires Inteface Only $59.95. 



Create beautiful greeting cards, signs and banners for holidays, 
birthdays and other occasions. Features easy-to-use point and 
click interface and user-friendly operation. Picture, font and 
Border collections included. Only $29.95 (Req CoCo 2/3, disk drive, 
mouse or joystick, Printers: EPSON, GEMINI, Star, DMP, Panasonic KXP 
1080/90/91/92, Citoh 8510, Okidata 92/93/182/183 & more) 

Picture Disk #2, #3, #4: $14.95 each 

Font Disk A,B: $14.95 each Border Disk #1: $14.95 

Label Designer 

Print Labels with text and graphics; mail merge option; disk 
directory option; easy to use interface. Only $34.95 



vb j , U v Color Schematic Designer Ver 2.0 tQ Q) 



nlnnr, 9 ^ "* ! C ° C ° 3 ' Pu " ° 0Wn MenuS ' hi - resolution ^bol sets, Keyboard / Mouse / Joystick (with 

proportional cursor speed system), lightning fast multiple UNDOs, Symbol Add /Modify / Rotate/Line/Box Draw, Hi-res Fonts 
workspace of 640 x 1000 pixels, 3 layers, font styles (fancy, italic, block, computer, etc). Supports DMP/ EPSON / GEMINI 
& compatible pr.nters. Supports near laser quality printouts on almost all EPSON Compatibles! Only $39 95 CSD 1 1 / 
1.2 owners can upgrade to version 2.0 by sending $10 with proof of purchase. (See Review in September 1989 Rainbow) 
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i^^/Max 10: $39.95 
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Musica II: Best Music Composition program 
for the CoCo 1,2 & 3. Disk Only $29.95 
Lyra: MIDI Based Music Composition 
program for CoCo 1 ,2 & 3. Disk Only $49.95 
The Lyra Companion (Book): $9.95 
CoCo Midi 3 Hardware: Sophisticated 
MIDI sequencer / recorder. Only $99.95 
CoCo Midi 3 Software: $59.95 



Spelling Checker for Max 10:$29.95 
Max 10 Fonts (36 fonts): $29.95 
CoCo Max III: $49.95 
CoCo Max III Fonts (95 lonts): $49.95| 
Max Edit (Font Editor): $19.95 
NX1000 Rainbow Driver: $19.95 
CGP 220 Driver: $19.95 
CoCo Max II: $69.95 
CoCo Max I (Tape): $59.95 




k 



MAXPATCH:Run Max 2 on 3. $19.95 



VIPCALCIII 

Best Spreadsheet for CoCo 3. $69.95 

VIP DATABASE III 

Best Database for the CoCo 3. $69.95 



File System Repack 

A must utility for every OS9 owner. Un- 
fragments your hard/floppy disk to 
speed up disk operation & reduce 
wear on drive heads. Only $29.95 



CEBBS (Hy Kevin Herncr) 

Features Xmodem Up/ 

Downloading, menus, login, mes- 
sage base, clock/ calendar, ex- 
ecution of external programs. 
fullSysop control & remote sys- 
tem access. Even HYPERIO 
Compatible. Only $49.95. Min Req. 
CoCo 3, 1 Drive, & RS232 Pack. 
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PRINTERS 

NX1000 Multifont II: $199&?& 
Panasonic KXP 11 80: $209 :te=== 
NX1000 Rainbow 9 Pin: $249 
NX2400 24-pin Printer: $349 
Panasonic KXP 1124 Printer: $369 
(Please Include $8 S&H for Printers) 

feerial to Parallel Interface: $44.95 



DOS ^ 

EXTENDED ADOS 31 Here it is! Highly ac- 
claimed DOS from Spectrosystems with built-in Ram- 
disk & Point-and-pick & much much more. $39.95 
Driver for Disto RTC: $5 28-pin Adapter: 
$10 

Smartwatch RTC: $34.95 Drivers: $10 
ADOS 3: $39.95 ADOS: $27.95 
Eprom Burning Service: $12+ Eprom 

RGB DOS: Supports double sided drives, 

up to 2 hard drives & more. Epromabie. 

$29.95 

OS9 Hard Disk Drivers Plus Hard Disk 

Boot: Only $19.95 



CoCo Util II 

Transfer Basic Programs & ASCII 
Files between CoCo & IBM. Req DOS 
3.2 or lower. Req. IBM Compatible w/ 
2 drives. Only $39.95 

Xenocopy '" 

Allows you to format/ duplicate / 
read/write disks between 300 different 
computers; for ex. between CoCo, 
IBM, NEC, etc. Requires IBM Com- 
patible w/ 2 drives. Only $79.95 



Goldberg Utilities Volume 2 

New Utilities for OS9 such as file compare, file 
protection, enhanced delete/move, dir. sort, 
dump, enhan. strip and much more. $24.95 
Comm 4: 4 Serial Ports! Only $124.95 



MICROCOM SOFTWARE 2900 Monroe Ave, Rochester, NY 14618. _ 
To Order and info on free gift: Refer to Page 1 7 of our 6-page series (Pgs 7-1 7). J^ 

Credit Card Toll Free Orderline 1-800-654-5244 

(9AM - 8PM 7 DAYS/WEEK) 

Tech. Info (Between 4-8pm), Order Status, Info: 716-383-8830. Fax: 716-383-0026. 




useless) or an A/D converter (as the Tano 
does), but as Mr. Barden correctly states 
further on. the CoCo uses a comparator 
circuit, which is technologically inferior 
(and cheaper which no doubt accounts for 
its use). 

Also, I have a hand scanner for entering 
programs using OCR software. What wor- 
ries me is that the scanner may not be able 
to handle Ben Day and color backgrounds 
so the OCR software can read them. I'm 
still working on how to get the programs 
from my PC/XT to the CoCo. but I believe 
I can whip this problem. Anything beats all 
that typing. 

I will be renewing my subscription to 
your magazine, after dropping six others 
because they were not cost-effective for my 
purposes. It is the practical, down-to-earth 
articles such as Mr. Barden's that keep me 
an avid reader. 

Billy R. Pogue 
Lake Havasu City. Arizona 

I Still Fit in With You CoCoists 

Editor: 

Although I am no longer a CoCo user. I 
enjoy reading THE rainbow. As the owner 
of an IBM PC -compatible. I can program in 
basic and C and so your magazine contains 
information I can use. I just want to thank 
you for all the help your magazine has 
given me. 

Tim Collier 
Miami 

It's About Time 

Editor: 

I have owned a ColorComputer for nine 
years and for the past eight years I have 
subscribed to THERA1NBOW. It's about time 
I said thank you to the staff, contributors 
and advertisers without whom my com- 
puter would be useless. 

Radio Shack has given us a nifty little 
jewel, but it takes the hard work and inno- 
vation by the many programmers, hard- 
ware hackers and writers like those found 
in the pages ofTHE RAINBOW to really make 
our favorite computer soar! 

Kevin Deneen 
Rhododendron, Oregon 

A Peculiar Call 

Editor: 

The February issue of THE RAINBOW 
mentioned the SS . FD Get St t function call. 
I've been using it for a while. The same 
function will operate with the SetStt call 
to write the file descriptor back to the disk. 



I've used this to change some of the con- 
tents of the file descriptor sector. The reg- 
isters are used in the same manner as with 
GetStt. 

Peculiarly, the SetStt allows changes 
to be made to the file owner bytes only by 
the super-user ( user ID 0). No error occurs 
if another user tries to change the owner, 
but no change occurs either. It seems that 
other data can be changed by anyone with 
the proper access to the file. 

Steve Goldberg 
Bethpage. New York 

Beginner's Confusion? 

Editor: 

I have owned a CoCo 3 for about a 
month and received my first RAINBOW this 
week. I copied several programs from your 
magazine but am continually having prob- 
lems running them. Is this common with 
other beginners? 

Also, why has Tandy discontinued the 
Multi-Pak Interface? Where can I purchase 
one? 

William Westendorf 
Bellville, Texas 

You are not alone. Nearly all beginners 
feel frustrated and confused by the amount 
of information necesary to get their ma- 
chines going the way they want. Hang in 
there and the knowledge will come. Both 
Howard Medical and Orion Technologies 
are offering Multi-Pak work-alikes. 

Cry for Nintendo 

Editor: 

In recent issues of THE rainbow I've 
read about the CoCo receiving more games 
that are used with Nintendo. Although I 
enjoy using the CoCo for various book- 
keeping and educational reasons, my two 
girls would like to be able to play Super 
Mario Brothers on the CoCo. Will this 
game be made available for the CoCo? Is 
there anything available now that is similar 
to it? 

Al Parker 
Olean.New York 

We don't know //'Super Mario Brothers 
will make it to the CoCo. But if it does, you 
can be sure we'll gel the word out. 

Looking for Multimedia Program 

Editor: 

I have a CoCo 3. a Multi-Pak Interface, 
an FD-502 and a DMP- 1 32 printer and am 
looking for a program for multimedia work. 



Several software companies have programs 
for the Commodore 64 computer, which I 
also own. but the CoCo 3 is a much better 
computer and would be able to do more in 
this area. With such a great system as the 
CoCo. I can't understand why more soft- 
ware companies don't produce better soft- 
ware for this machine. Do you know if 
anyone makes a program like this? 

the rainbow is a top-notch magazine, 
and I hope it's around for a long time. 

Eddie G. Wilson 

Rt. 4 Box 198 

Galax. VA 24333 

Tell It Like II Is 

Editor: 

I was very pleased and surprised to read 
Jim Issel's review of C III Pages. I was not 
surprised by his honest opinion of the pro- 
gram, but with the fact that you printed it. 
Your past program reviews have been too 
soft. There are usually no negative remarks. 

Readers realize the pressure of not step- 
ping on the toes of advertisers, but we need 
to know the true impressions reviewers 
have of products. They should not be obli- 
gated to give favorable reviews. 

J.K. Sinrod 
LynBrook. New York 



THE RAINBOW welcomes let- 
ters to the editor. .Mail should be 
addressed to: Letters to Rainbow, 
The Falsoft Building, P.O. Box 385, 
Prospect, KY 40059. Letters should 
include the writer's full name and 
address. Letters may be edited for 
purposes of clarity or to conserve 
space. 

Letters to the editor may also 
be sent to us through our Delphi 
CoCo SIG. From the CoCo SIG> 
prompt, type RAI to take you into 
the Rainbow Magazine Services area 
of the SIG. At the RAINBOW> 
prompt, type LET to reach the 
LETTERS> prompt and then select 
Letters for Publication. Be sure to 
include your complete name and 
address. 



8 



THE RAINBOW April 1990 



Jusl think of any word processing feature. 
:hances are Word Power has il..packs a lot ofj 
fcatures...excellcnt word processor...' Word f j t 



I'roc. Co»pariso. -April 1989 Rainbow: Pg 26 



tejWord Power 3.3 

The Best ]ust Got Better! 



'...friendly. ..amazing execution 
5 pced...much easier to use than VIP 
software & 2 other systems Ivc 
lried...very user friendly... highest among| 
*ord-proccssors"-Rainbow Oct 8S Rev. 



I SitP ! SPEED 

*'>A Blazing Fasl! Runs 

£ al 2 Mhz and uses 

the standard text screens fori 

lightning fast execution. 




MEMORY 



Word Power 3.3 allows 72K of 
workspace on a 128K CoCo and 
I460K on a 512K CoCo. More memory 
than any other word processor. Period. 



*!* 



DISPLAY 




EDITING 

Powerful full-screen editor w/| 
word-wrap. 4-way cursor,scrol- 
ling; Line Positioning; Block 
Commands; Search, Replace; 
OOPs recall during delete, adjustable key- 
repeat, key-click, typeahead, Tabs, Word-Count 
ind much more! . Built-in extensive HELP 
icreen can be accessed anytime during edit. 




SPOOLER 



Print and Edit doci 
ments at the same time! 



Choice of 40 or 80 
columns with your 
choice of colors. Can 
be used with RGB/ 
Composite/Monochrome Monitors and 
TV. Pull down menus, plain cnglish 
prompts, on-screen underlining and page 
break display make it a breeze to use! 




SORTING 



Sort lists in a flash! 




SPLIT-SCREEN 
EDITING 

i Freeze a portion of text and edit 
(another. Its fantastic! 





CALCULATOR 

Built-in 4 function calculator! 



GRAPHICS 

Insert graphics in 
your documents! 
Allows you to import 
PMODE 3/4, HSCREEN and 
CoCo Max 11/111 pictures! 



r- ■ 






v 3s 



Align your text 
(with a few keystrokes! 



2 COLUMN 
PRINTING 

in 2 columns 




SAVING / LOADING 



Creates ASCII files that are compatible with 
other word-processors, terminal programs, 
etc. Allows directory point & select for easy 
loading/saving, Automatic Backup, file 
erase, free space display. ARE YOU SURE? prompts prevent 
accidental deletes. The Auto-Save feature automatically saves 
text to disk during user-defined intervals for peace of mind. 
Supports double-sided drives. 



MACROS 



K& 



Playback 
up to 250 
keystrokes 
with a sin- 
gle key! 
Automate multiple 
tasks with a single 
key! You'll love it! 



MAIL MERGE 

Type a letter, follow it 
with a list of names & 
addresses and have Word 
Power print out personal- 
ized letters. Its that easy! 




PRINTING 

Works with all printers that work with the CoCo. Allows options 
such as baud rates, spacing, page/print pause, partial print, page 
numbering/ placement, linefeeds, multi-line headers/footers, right 
- justification and number of copies. The values of these opuons can 
be changed in the text by embedding Printer Option Codes. The WHAT YOU SEE 
S WHAT YOU GET feature allows you to preview the text on the screen as it will 
ipP car on the printer. You can view margins, page breaks, justification and more. 



SPELLING CHECKER 

$0 



Word Power 3.3 include 
a 80,000 word spelling 
checker which finds and 
corrects mistakes in your 
text. 



IS 



I 



Pi 



$79.95 DOCUMENTATION 



Mir 



Word Power 3.3 comes with a well-written 
instruction manual & reference card which 
makes writing with Word Power as easy as pie. 
Word Power 3.3 comes on an unprotected disk. 



FREE 
T-SHIRT 

wiih full order ol 
Word Power !U 
(Specify Size) 



PUNCTUATION 
CHECKER 



This checker will proofread 
your text for punctuation errors 
such as capitalization, double- 
words, a/an usage, spaces and 
more. Its the perfect addition to 
any word-proccessor. 



Upgrade Policy: Word Power 3.2 
owners can get Word Power 3.3 by 
sending original Word Power disk 
and S15 to the address listed below. 



Technical Support (4-8pm), Order Status, Info, Technical Info, 716-383-8830 




A Helping Hand 




Just about everyone was delighted 
that I was reaching awkwardly 
for a cigarette when I pulled my 
fifth spinal vertebra out. 
Comments such as "I told you 
smoking was bad for your health" were 
abundant. 

It took a combination of tete-a-tete with 
my friendly orthopedic man. something 
called a magnetic resonance image scan (I 
felt like a floppy disk because they checked 
me several times and asked a million ques- 
tions to be sure I didn't have anything that 
might be grabbed by their magnet) and 
some physical therapy to put my neck back 
where it was supposed to be. However, 
some nerves caught some place or another. 
This caused pain. 

I returned for more therapy and some 
traction, assuring the therapist that I had to 
be in New York for one show and in Las 
Vegas for COMDEX. This proved to be no 
problem. He fitted me up with a portable 
traction unit that looked like a cross be- 
tween a gibbet and a guillotine. I think the 
maid at the New York Hilton was afraid to 
come into the room. 

I hung from this contraption two times a 
day for a number of weeks until gradually 
the nerve went back to its proper location. 
This relieved the chronic pain in my shoul- 
der, my ami and my hand. Even two of my 
fingers quit being numb. 

It was during this time, of course, that I 
needed to write my column. 1 missed it, as 
you may have noticed. In my attempts to 
work on the computer. I tried all sorts of 
positions and angles, but nothing helped 
for long. So. no column. 

And not much computing, for that mat- 
ter. But it got me thinking. 



THE rainbow has printed programs 
(about as many as we have received) for 
disabled users, and I have seen a few appli- 
cations over the years that have made our 
Color Computer accessible for the handi- 
capped. But my experience showed me that 
we can do much more, as a Community, to 
make the powerof machines like ourCoCo 
available to more people. 

While incapacitated, I found the CoCo 
keyboard easier to use than my MS-DOS 
keyboard. In fact, operating the Color 
Computer was easier, which may have 
something to do with the way the machines 
are set up — my CoCo disk drives are 
closer to the keyboard (and the whole 
computer), so I didn"t have to reach as far. 

As I began to compare the two systems 
in this context. I noticed that the CoCo 
screen in its native format is easier to read 
than an MS-DOS screen. And so many of 
the applications for the CoCo. of course, 
use the regular screen. 

Well. I am almost back to normal now, 
but I'd like my experience to help others. I 
want to encourage you to share programs 
you may have written to assist the handi- 
capped in using the CoCo. THERAINBOW is 
also interested in sharing with other mem- 
bers of the CoCo Community whatever 
insights and activities you may have expe- 
rienced in this area. 

All can benefit from this information 
exchange. So please share your experi- 
ences and ideas with us and the rest of the 
CoCo Community. 

We'll print related letters and be on an 
extra-sharp lookout for programs. I look 
forward to hearing from you. 

— Lonnie Falk 
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Programming Secrets Galore 

Pokes Peeks and Execs are your guides into the jungle of computer programming. These commands give you the power of 
Machine Language without leaving the security of BASIC. Each book is a collection of "inside" information with exoEons 
weaSELtlon" 011 ' mmed ' a,Cly PU * U l ° USe " Ever y 0ne from the novice to * pwta*j| will BLSBRlSK 



300 POKES, 
PEEKS, N EXECS 
for COCO III 

MO/80 column Screen Text Dump 
•Save Text/Graphics Screen 10 Disk 
"Command/Funclions Disables 
"Enhancements for CoCo3 BASIC 
• 128K/5 12K RAM Test Program 
•HPRINT Character Modifier 
Only $19.95 



500 POKES 
PEEKS.'N EXECS 

• Autostart your BASIC programs 

•Disable Color BASIC/ECB/Disk BASIC 

commands 

•Disable Break Key/ Clear Key/ Reset Button 

"Generate a Repeat-key 

"Transfer ROMPAKs to tape 

"Set 23 different GRAPHIC modes 

•Merge two BASIC programs 

"And much much more!!! 

vFor CoCo 1,2 and 3. Only $16.95 
ALL 3 BOOKS for. $39.9 



Supplement to 500 
pokes.peeks, 'n execs 

200 additional Pokcs.Pccks and Execs 

(500 Pokes Pecks 'N Execs is a prerequisite) 

■ROMPAK transfer to disk 

•PAINT with 65000 styles 

•Use of 40 track single/double sided drives 

"High-speed Cassette Operation 

"Telewriter, CoCo Max enhancements 

" Graphics Dump (for DMP printers) / 

/Text Screen Dump 

For CoCo 1,2 or 3. Only $9. 95 



UNRAVELLED SERIES 



COCO LIBRARY 



An invaluable aid for Basic and Machine Language programmers, these 
books provide a complete disassembly and annotated listing of the 
BAblC/ECB and Disk ROMs. These listings give complete, uninicruptcd 
memory maps of the four ROMs. Gain complete control over all versions of 
the color computer. 

EXTENDED COLOR BASIC UNRAVELLED: COLOR 
BASIC and EXTENDED BASIC ROM Disassembly: $39.95 
DISK BASIC UNRAVELLED: DISK BASIC ROM 1.1 and 
1.0 Disassembly : $19.95 

BOTH ECB AND DISK BASIC UNRAVELLED: $49.95 
SUPER EXTENDED BASIC UNRAVELLED: SUPER EX- 
TENDED BASIC ROM Disassembly for CoCo 3. $24.95 
COMPLETE UNRAVELLED SERIES (all 3 books): $59.95 



CoCo 3 Service Manual: $39.95 

CoCo 2 Service Manual: $29.95 

Start OS9 Book + Disk: $32.99 

Inside OS9 Level II: $29.95 

Rainbow Guide To OS9 Level II: $19.95 

Rainbow Guide To OS9 Level II Disk: $19.95 

Complete Rainbow Guide To OS9: $19.95 

Complele Rainbow Guide to OS9 2 Disks: $29.95 

Assembly Language Programming(tepco): $18 

Addendum For CoCo3 (tepco): $12 
Color Computer Disk Manual: $29.95 
Multipak Service Manual (Specify Model): $19.95 
Disto Turn of the Screw Book: $19.95 



GAMES 



(CoCo 1,2,3 Disk unless otherwise specified; min 32K) 




Warrior King (CoCo 3): $29.95 

In Quest of the Star Lord(CoCo3): $34.95 Hint Sheet: $3.95 

Hall of the King 1,2,3: $29.95 ca Trilogy: $74.95 

Rung Fu Dude: $24.95 

Dragon Blade: $19.95 Champion: $19.95 

White Fire of Eternity: $19.95 

Quest for the Spirit Stone (CoCo 3): $18 BHEfc 

Sinistaar (512K Req): $34.95 Kyum-Gai (CoCo 3): $29.95 

Paladin's Legacy: $24.95 

Slots & Cards (CoCo 3): $39.95 

Leisure Suit Larry (CoCo 3): $49.95 

TREASURY PACK #1: Lunar Rover Patrol, 

Dcclalhon, Que, Keys of Wizard & more. Only $29.95 




:;:!:: 
& 



IHI 



& 



Cubix, 



TREASURY PACK #2: Lancer, Ms. Gobbler, Froggie, Mad- 
ness & Minotaur, Ice Castles, Galagon, Devious. Only $29.95 
SPACE PAC: Color Zap, Invaders, Planet Invasion, Space 
Race, Space War, Galax Attax, Anaroid Attack, Whirlybird, 
Space Sentry & Storm Arrows. Only $29.95 
Defendroid: (CoCo 3): $29 Overlord (CoCo 3): $29 



WIZARD'S CASTLE: A hi-res graphics adventure game filled 
with tricks, traps and treasures. Min 64K. Only $19.95 
Warp Fighter 3D (For CoCo 3): $24.95 Bash (For CoCo 3): $24.95 
Mine Rescue (For CoCo 3): $24.95 The Seventh Link: $38 
Caladuril 2: Weatherstone's End: $54 

Speed Racer: Buckle your seatbcll and get ready to race in 
this Pole Position® type game. Only $34.95 
Pinball Factory: Design, Build, Edit and Play the classic game 
of Pinball. Min 64K. Only $34.95 

Demon Seed: Battle the diving & bloodthirsty bats. $19.95 
(."ashman: Explosive color, fast-moving animation and amaz- 
ing sound-effects! Has over 40 levels! $29.95 
Fury: An action packed airborne dogfight simulation. $29.95 
Time Bandit: Fight the Evil Guardians, Killer Smurphs & 
more. Full animation & over 300 screens. $29.95 
Rommel 3D: Exciting 3-D Tank Combat Game. CoCo 2.$34.95 
Outhouse: One of the funniest, most original games. Excel- 
lent graphics, sound effects & payability. $19.95 
Mudpies: Crazy circus fun! Only $29.95 
Those Darn Marbles: $32 (Req 512K) 



MICROCOM SOFTWARE 2900 Monroe Ave, Rochester, NY 14618 
To Order and info on free gift: Refer to Page 1 7 of our 6-page series (Pgs 7-17). \J£L 5A 

Credit Card Toll Free Orderline 1-800-654-5244 

(9AM - 8PM 7 DAYS/WEEK) 

Tech. Info (Between 4-8pm), Order Status, Info: 716-383-8830. Fax: 716-383-0026. 




Here's a penguin who believes icebergs will soon be yesterday's transportation 



Icarus in Search of Wings 




by Nick Bradbury 



P. enguin Icarus is a unique arcade-style 
I game for the CoCo 3. You play the role of 
Icarus, a thinking man's penguin who 
decides that life just isn't satisfactory when 
one is a flightless waterfowl. No longercon- 
tent vviih your useless wings, you set out on an unusual 
quest to find new and better ones. Every penguin, from 
emperor to Opus, yearns to fly. 

Game Play 

After selecting your monitor type, you see the title 
screen. Press the fire button on the right joystick to 
begin play. 

Screen 1 is set near Icarus' Antarctic home. Using 
the right joystick, you must guide Icarus up a series of 
polar bars connected by ladders to the ice ball to be 
transported to the next screen. Large ice cubes fall from 
the top of the screen to hamper your climb. Being hit by 
an ice cube causes you to lose one of your penguin lives 
(you have four) and starts the screen over again. You 
can gain extra points (25) by eating the mackerel that 
occasionally appear above the ice bars. 

Screen 2 takes Icarus into the clouds. You must 
guide him up through the clouds to the second glowing 
ice ball by climbing the ladders and riding the elevators 
down to each new set of clouds. This would be simple 
if the clouds weren't electrified — unfortunately, they 
are. Touching or falling off an electrified cloud will cost 
you a penguin life. 



Nick Bradbury, a junior in advertising at the University 
of Tennessee, works as a cartoonist for the daily college 
newspaper there. His previous CoCo works include 
Moon Runner and Legend Quest. He can he contacted 
at 712 Forest View Road. Knoxville. TN 37919. 



Screen 3 is the magical location of Icarus' new 
wings. You must jump your penguin along each layer of 
balloons without falling and then walk along the thun- 
dercloud corridor to gain your wings. Short bolts of 
lightning fall from these thunderclouds, so be careful 
not to be hit by one. 

Once you have gained your wings, a short burst of 
Icarus' favorite song is played, and then he tries out his 
wings (without your help) in a pleasant nature scene. It's 
a shame, though, that Icarus is such a clumsy penguin. 

Controlling Icarus may take some getting used to. 
Instead of climbing ladders Mario-style. Icarus must 
jump from rung to rung. (Well, think about it — how 
else could a penguin climb a ladder?) When he jumps, 
he may be moved left or right as long as he is still in the 
upward part of his jump. Once he starts coming down. 
he cannot be moved left or right until he lands on 
something. 

The top of each screen displays the number of 
penguin lives remaining, the score, and a red bar repre- 
senting the timer. Points are awarded depending upon 
how quickly each screen can be completed. Failure to 
complete a screen before the timer runs out ends the 
game. 

The technique used to animate the figures in Penguin 
Icarus is a relatively simple one. All shapes are created 
during set-up and then saved in HGET buffers. Before the 
program places a shape onscreen during game play, the 
area to be occupied is saved in a separate HGET. When a 
shape is to be moved, this area is returned to the screen 
(via an H PUT). Then the area about to be occupied by the 
shape is saved by the same HGET so the process can be 
completed. After the area is saved, the shape can (hen be 
placed onscreen in its new location. For a demonstration 
of this technique, enter and run Listing 2. For further 
information on HGET/HPUT, please refer to the CoCo 3 
Extended BASIC manual. Q 
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COCO UTILITIES GALORE 

(For CoCo 1,2,3 RSDOS; Min 32K Unless Otherwise Specified) 



O S9 (New Products Added Every Month) 



I Super Tape/disk 
Transfer 

Transfers Tape-To-Disk, Disk- 
to-Tape,Disk-to-Disk,Tape-To- 
Tapc. Only $24.95 

1 Maillist Pro "| 

Add, Edit, View, Print 
(Select/All), Sort Mailing 
Labels. Only $19.95 

I Computerized 
Checkbook 

Add, View, Search & Print 
Checkbook Entries for savings/ 
checking & other accounts. 
Only $19.95 

I CoCo 3 Screen Dump | 

32/40/80 column, PMODE 3/4 
dump. Allows you to take snap- 
shots of screens while program 
is running! For DMP & Epson/ 
Gemini/ Star & Compatibles. 
Only $19.95 (CoCo 2 

compatible) 

| RGB Patch 

Displays most graphics in Color 
on RGB Monitors. For CoCo 
3-Only $24.95 

| FKE YSIH 

Create up to 20 function Keys. 
EPROMable. For CoCo 3,Only 
$19.95 



Vcr Tape Qrgra nizer 1 

Organize your videotapes.Only 
$1 9.95 

Home Bill Manager 

Organize your Bills.Only $12.95 



Sixdrive I 

Allows use of 3 double-sided 
drives from RSDOS or ADOS. 
Disk Only $16.95 

Disk Label Maker 

Design Professional labels. Al- 
lows expanded, normal, con- 
densed text w/ Double-Strike & 
Borders. Supports DMP, Star, 
Gemini, Epson & Comp. 
Printers. Only $19.95 

Disk Utility 2.1a 



IL 



The best disk management 
program for the CoCo 2 & 3. 
Only $19.95 



[Bowling 



Score Keeper 



For Team & Individuals. $19.95 



Window Writer 

Powerful OS9 word processor 
with multi-tasking, pull down 
menus & much more. Only $59 
DynaSpell: 102,000 word spell- 
ing checker! Only $19.95 




Calendr & Appts. Only $12.95 
From Cer-comp... 

Window Master Windowing En- 
vironment for CoCo 3. $69.95 w/ 
HiRes: $79.95 
Window Writer: $59.95 
Window Basic Compiler: $99 
Window EDfTASM: $49.95 
Font/Icon Editors: $19.95 
Advanced Prog. Guide: $24.95 
CBASIQBasic Compiler. Specify 
CoCo 1,2 or 3. Only $149.95 
The Source: Best Disassembler. 
Specify CoCo 1,2 or 3. $49.95 
EDT/ASM: Best Assembler. Specify 
CoCo 1,2,3. $59.95 

Telewriter 64 



Best Word Processor for CoCo 
2. Disk: $57.95 Cas: $47.95 

I Autoterm 

Best Terminal Software. Disk: 
$39.95 Cas: $29.95 



From Dr. Prebl e© 

Basic Freedom: $24.95 
Vocal Freedom: $34.95 
Mental Freedom: $24.95 
Hacker's Pac: $14.95 

Disk Utilities 

mmmmmmmmmmmmmmmmmamm. . .. 
Use all 360K from your double 

sided drive & more. $17.95 
MEMORY MASTER 

Run 2 programs at once, fix 
disks, scan, edit memory on 
CoCo 2. Only $24.95 

1 Vterm 

Terminal Software w/ VT 
Emulations and much more. 
CoCo 3 Only. Only $39.95 

I Basic Windows I 

By Kevin Berner 

Run 6 Basic Programs at the 

same time! Req. 512K. $39.95 



The revolutionary program that 
allows you to use Basic under 
OS9 Level II to take advantage 
of features. Only $39.95 



An excellent hands-on guide to 
OS9 Level II for the beginner. 
Req 512K, 2 Drives & Monitor. 
Book & Disk Only $32.99 

From Alpha Software® ! 

OS9I^vdT!lBTvf!oTfhe S X 
solute best BBS program for 
OS9. Even comes with its own 
terminal Program. Req. 512K & 
RS232 Pack. Only $29.95 
Level II Tools: 25 utilities such 
as windowing, wildcards, tree 
and more. Only $24.95 
Disk Manager Tree: Change, 
copy, view,create directories 
with ease. Req 512K. $29.95 
Warp One: Complete Level II 
Windowing Terminal. Req 512K 
& RS232 Pack. Only $34.95 
The Zapper: Patch Disk Errors. 
Disk Only $19.95 
Multi-Menu: Create your own 
pop-down windows. Req 512K 
and Multi-Vue. Only $19.95 
Presto Partner: Have a notepad, 
calculator, calendar, phone 
book,RT clock & more at your 
fingertips. 512K Req. $29.95 



Screen Control Utility: Gain 
Complete control of your text 
screen. Only $19.95 
Menuing Utility: Complete 
memory resident menuing sys- 
tem. Only $19.95 
Point & Shoot File Selection: 
Only $19.95 

Multi-Edit 

Create, Edit Application infor- 
mation Files & Icons for Multi- 
Vue. Only $24.95 



Transfer Utilities 

GSC File Transfer: Transfer 
files from MSDOS / OS9/ 
RSDOS & Flex. Req OS9 (Level 
II for Multivue Ver.),2 drives, 
SDISK/SDISK3. Standard Version: 
$44.95. Multivue Version: $54.95 
SDISK3: Standard drive re- 
placement module allows use of 
40/80 DS/DD drives. Req. OS9 
Level II. $29.95 SDISK: $29.95 
PC-Xfer Utilities: Programs to 
format/transfer files to/from 
MSDOS disks lo CoCo under 
Level 1/2. Req SDISK(3): $44.95 

OS9 Level II Ramdisk 

In-memory disk drive! Req 
512K. Disk Only $29.95 



Power-packed utilities w/ 15 
useful commands such as sort, 
lost file location, disk pack & 
much more. Only $24.95 

<Yom Burke & Burke®.| 

Wild & MV Version 2.1: Use 
"wildcards" with OS9 & re-ar- 
range directory tree. $19.95 
EZGen Version 1.04: Powerful 
OS9 bootfile editor. Changes 
names, add/delete modules, 
patch bytes, etc. $19.95 

From Microtech®... 

XYV^r^e^To^Wordr^ce^ 
sor with True character oriented 
& more. $69.95 

XMerge: Mail Merge for 
XWord. Only $24.95 
XSpell: 40000 word spelling 
checker. Only $39.95 
XED: Full Screen Editor. $39.95 
XDIS: Disassembler. $34.95 
XTerm: OS9 Communications 
Program. Only $49.95 
XDir & XCal: Hierarchial direc- 
tory, OS9 calculator. $24.95 

From Frank Hot 

Dynastar: Most Popular OS9 
Word Processor. Only $99.95 
Both Dynastar & Spell: $119.95 
Wiz: Communications Program. 
Req RS232 Pack. $59.95 

From Sugar Software® 
OsTcamg^her:6^$2T9T 



MICROCOM SOFTWARE 2900 Monroe Ave, Rochester, NY 14618. 
To Order and info on free gift: Refer to Page 1 7 of our 6-page series (Pgs 7-1 7). 

Credit Card Toll Free Orderline 1-800-654-5244 

(9AM - 8PM 7 DAYS/WEEK) 

Tech. Info (Between 4-8pm), Order Status, Info: 716-383-8830. Fax: 716-383-0026. 




CoCo3 




40 5 

110 252 

170 

220 113 

250 192 

300 65 

350 24 

400 51 

450 195 

500 171 

540 54 

600 218 

650 40 

690 41 

730 8 

780 16 

830 102 

890 36 

940 79 

980 107 

1020 175 

1050 169 

1090 39 

1140 96 

1190 225 

1240 18 

1290 94 

1330 166 

1380 244 

1410 165 

1450 220 

1480 4 

1540 212 

1590 72 

1620 220 

1650 111 

END 51 



Listing 1: PENGUIN 

' COPYRIGHT 1990 FALSOFT, INC 
10 CMP:0NBRK GOTO1700: P0KE65497 . 
0:POKE&HE6C6.0:DIMC(38).CX(20).C 
Y(20).FX(16).FY(16) 
20 CLS:PRINT@103. "SELECT MONITOR 
TYPE : ":PRINT@135. STRINGS ( 20. ••-" 
):PRINT@195."(1) RGB (2) COMPO 
SITE/TV":PRINT:INPUTA:IFA<10RA>2 
THEN20ELSEMT-A:GOSUB760 
30 HBUFF1.560:HBUFF2.133:HBUFF3. 
133:HBUFF4.133:HBUFF5.91:HBUFF6. 



91:HBUFF7.91:HBUFF8.380:HBUFF9.3 

96:HBUFF10.720:HBUFF11.396:HBUFF 

13.276:HBUFF14.156:HBUFF15.60:HB 

UFF16.60:HBUFF17.450:HBUFF18.993 

40 HBUFF19.201:HBUFF20.201:HBUFF 

21.101: HBUFF22 . 101 : GOSUB780 

50 PLAY"V31L255T255":GOTO1610 

60 JM-0:FS-0:GL-0:LC-0 

70 GOSUB730 

80 GOSUB710:PALETTE6.RND(63):J0- 

JOYSTK(0) : IFLV-0THEN90ELSEIFFS-1 

THEN190ELSEIFRND(18)-1THEN180 

90 XX-X:YY-Y:lFJM-0ANDHPOINT(X+6 

.Y+19)-7THENJ-2:Y-Y+5ELSEIFJ0<15 

THENJ-1:PN-3:X-X-8ELSEIFJ0>48THE 

NJ-l:X-X+8:PN-2 

100 IFJO2THENIFJM-1THEN240ELSEI 

FBUTTON(0)-1THENJM-1:JC-1:PLAY"O 

3V20OEFGO4V30CDE":GOTO240 

110 IFX<12THENX-12ELSEIFX>288THE 

NX-288 

120 IFY>175THENY-175ELSEIFY<10TH 

ENY-10 

130 IFJ>0THENJ-0:HPUT(XX.YY)-(XX 

+12.YY+18).4.PSET:HGET(X.Y)-(X+1 

2.Y+18J.4 

140 HPUT(X.Y)-(X+12.Y+18).PN:IFL 

V-2THEN300ELSEIFLV-3THEN530ELSEI 

FLV-0THEN450 

150 1FH1-1THEN260ELSEIFRND(5)-1T 

HEN250ELSEFORI-1TO27:NEXTI 

160 IFBB-0THENIFX<142ANDY<22THEN 

220 

170 GOTO80 

180 FS-1:R-RND(4):FX-FX(R): FY-FY 

(R):FC-0 

190 HPUT(FX.FY)-(FX+29.FY+12).19 

. PSET: FC-FC+1 : 1 FFO18THENFC-0 : HP 

UT( FX . FY ) - ( FX+29 . FY+12) . 20 . PSET: 

FS-0:GOTO90 

200 IFX>FX-4ANOX<FX+27ANDY>FY-20 

ANDY<FY+8THENFS-0:HPUT( X .Y ) - ( X+l 

2.Y+18).4.PSET:HPUT(FX.FY)-(FX+2 

9.FY+12).20.PSET:SC-SC+25:PLAYP4 

$:GOSUB730:HGET(X.Y)-(X+12.Y+18) 

.4 

210 GOTO90 

220 TS-TM*5:SC-SC+TS:GOSUB730:HP 

RINT( 22.1). "BONUS" :HPRINT(27.1). 

TS:PLAYP2$:FORI-1TO750:NEXTI:GOS 

UB1370:GOTO60 

230 GOTO80 

240 IFLV-2ANDY<43THENJM-0:JC-0:G 

OTO110ELSEJ-3:JC-JC+1:IFJO5THEN 

JC-1:JM-0:GOTO110ELSEY-Y-5:GOTO1 

10 

250 Hl-l:HY-0:HX-30+2*RND(117):H 

GET(HX.HY)-(HX+12.HY+12).6:Z-8 

260 HPUT(HX.HY)-(HX+12.HY+12).6: 

HY-HY+Z+(DF*3):Z-Z+.3:IFHY>157TH 

ENH1-0:PLAY"O2V20CE":GOTO160ELSE 

HGET(HX.HY)-(HX+12.HY+12).6:HPUT 

(HX.HY)-(HX+12.HY+12).5 

270 IFHX>X-9ANDHX<X+12ANDHY>Y-8A 

NDHY<Y+18THEN290 

280 GOTO160 

290 PLAYP1$:NP-NP-1:GOSUB730:FOR 

I-1TO750:NEXTI :GOSUB1230:GOTO60 

300 IFY<38THENY-38:JM-0:JC-0ELSE 

IFY>172THEN430 

310 IFX<42ANDY<41THENTS-TM*10:SC 

-SC+TS:GOSUB730:HPRINT(22.1)."BO 



NUS":HPRINT(27.1).TS:PLAYP2$:FOR 

I-1TO750:NEXTI:GOSUB1450:GOTO60 

320 IFX<EX(EE)+18ANDY<EY(EE)+21A 

NDY>EY(EE)+4THEN380 

330 ' 

340 CT-CT+1:IFCT<3-DF THEN360ELS 

ECT-0:C-C+1 : PLAY"02G" : I F015THEN 

C-l 

350 CX-CX(C-1):CY-CY(C-1):HPUT(C 

X.CY)-(CX+43.CY+17).9.PSET 

360 CX-CX(C):CY-CY(C):HPUT(CX.CY 

)-(CX+43.CY+17).ll.PSET:IFX<CX+3 

8ANDX>CX-8ANDY<CY+15ANDY>CY-18TH 

EN410 

370 GOTO80 

380 EX-EX(EE):EY-EY(EE):HGET(EX. 

EY ) - ( EX+38 . EY+35 ) . 10 : EE-EE+1 

390 FORI-EY TOEY+114STEP2:HPUT(E 

X . I ) - ( EX+38 . 1+35 ) . 10 . PSET : PLAY "0 

3F":NEXTI:SC-SC+10:GOSUB730 

400 Y-Y+114:GOTO330 

410 NP-NP-1:HPUT(X.Y)-(X+12.Y+18 

) . PN : F0RI-1T018 : PALETTE0 . RNO( 63) 

:PLAY"O3EO5C":NEXTI:PALETTE0.0:G 

OSUB730:FORI-1TO800:NEXTI:GOSUB1 

370 

420 GOTO60 

430 NP-NP-1:F0RI-5T01STEP-1:PLAY 

"0"+STRJ(I)+"FDEC":NEXTI:G0SUB73 

0:FOR1-1TO600:NEXTI:GOSUB1370:GO 

TO60 

440 J-3:JC-JC+1:IFJC>7THENJC-1:J 

M-0 : GOTO360ELSEY-Y - 3 : GOTO360 

450 IFY>154THENNP-NP-1:F0RI-5T01 

STEP- 1 : PLAY"0"+STR$ ( I )+"FDEC" : NE 

XTI:GOSUB730:FORI-1TO450:NEXTI:G 

OSUB1690:GOTO60 

460 IFX>259THENSC-SC+50:GOSUB730 

: PLAYP2S : FORI-1TO500 : NEXT I : GOSUB 

1230:GOTO60 

470 1FGL-1THEN500ELSEIFRNO(8)-1T 

HEN490 

480 GOTO80 

490 GL-1:GY-140:GX-262:PLAY"O3V3 

1BAGFEDC" 

500 HPUT(GX.GY)-(GX+12.GY+12).22 

.PSET:GX-GX-8-(OF*2):IFGX<0THENG 

L-0:GOTO80ELSEHPUT(GX.GY)-(GX+12 

.GY+12).21.PSET 

510 IFX<GX+12ANDX>GX-10ANDY<GY+1 

2ANDY>GY-18THENPLAY"01V31CDEFG02 

GFEDCDCDC":NP-NP-1:FORI-1TO600:N 

EXTI :GOSUB730:GOSUB1690:GOTO60 

520 GOTO80 

530 IFY>172THENNP-NP-1:F0RI-5T01 

STEP-1:PLAY"0"+STR$(I)+"FDEC":NE 

XTI:GOSUB730:FORI-1TO600:NEXTI:G 

OSUB1450:GOTO60 

540 AX-20+RND(5)*40:AY-50+RND(3) 

*40+RND(2)-2:HPUT(AX.AY)-(AX+23. 

AY+22J.13.PSET 

550 IFL1-1THEN600ELSEIFRND(3)-1T 

HEN580 

560 IFX>242ANDY<44THEN640 

570 GOTO80 

580 L1-1:LY-17:PLAY"03V28E01A":L 

C-LC+1 : 1 FLO10THENLC-0 

590 LX-60+LC*18:HGET(LX.LY)-(LX+ 

5.LY+19) .16 

600 HPUT(LX.LY)-(LX+5.LY+19).16. 

PSET:LY-LY+18+(DF*3):IFLY>192THE 

NL1-0 : GOTO560ELSEHGET( LX . LY ) - ( LX 
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DISTO PRODUCTS 



All Disto Products now carry a 1-Year Warranty and are 
shipped 2nd Day Air (at no extra charge!) within Continental 
US. All Disto Add-Ons (& Super Controller II) include OS9 
Drivers, unless otherwise specified. 



Disto Mini Controller (with RSDOS or CDOS) : $74.95 

Disto Super Controller (with RSDOS or CDOS): $99.95 

Disto Super Controller II (with RSDOS or CDOS): $129.95 

• Mini Eprom Programmer Add On: $54.95 

• Hard Disk Adapter: $39.95 w/ RS232: $69.95 

• RT Clock & Printer Interface: $34.95 (OS9 Driver: $19.95) 
• 3-in-l Multiboard Adapter Parallel Port, RT Clock & 

RS232 Port. $74.95 
• MEB Adapter II: $34.95 

• 4-in-l Board: Parallel Port, RT Clock, RS232 & Hard Disk 

Interface: $129.95 
RS232 Super Pack: True RS232 Port for your CoCo! Com- 
patible with Tandy® RS232 Pack. Includes DB25 Cable. 100% 
Compatible with OS9 ACIA Software. Req. Multipak. Only 
$54.95 







DRIVES 




HARD DRIVES, Etc. 

Systems w/ Seagate Hard Drive, Controller, Cables, CoCo XT 
Interface, Cables, Case (with fan & Power Supply), Software 
(OS9 Software & H YPERIO Software!) & Instruction Manuals. 
Assembled/Tested/Formatted. Just Plug'N'Run. Req. Multipak. 

Disto Hard Drives Systems Also Available! 



40 Meg 



OS9 System $599^ 



Seagate 20 Meg System: $509 

Seagate 30 Meg System: $539 

CoCo XT: Use 2 5-120 Meg Drives with your CoCo. Only $69.95 

w/ Real Time Clock: $99.95 

CoCo XT ROM: Boots OS9 from hard/floppy. Only $19.95 

HYPERIO: Allows Hard Drive use with RSDOS. Only $29.95. 

HYPERIO Disto Version. Only $29.95 

HYPERIII: R AMDisk & Spooler to CoCo 3 H YPER I/O. $ 1 2.95 

HYPERIO Utilities (by Kevin Bcrncr) 
Hard Drive Utilities: MSA Backup, Copy/Kill/Rename, Hard 
Disk Backup to Floppies (vica versa) & more. Only $21.95 
Disk Doctor Checks/locks out bad sectors, only $17.95 
Hard Drive Zap: View tracks, sectors, modify data on your hard 
disk. Only $21.95 



There are a lot of dealers selling disk drives for the CoCo. Why buy from us? First, 
all our drives are BRAND NEW DOUBLE SIDED Drives. They are sleek, fast 
(6ms!), quiet and have a reputation of superb performance and reliability. Second, 
our Drive & 2 Drive Systems come with the acclaimed DISTO Controller - with gold 
plated contacts & built-in ROM which allows you to access BOTH sides of our drives!. 
Third, our Drive & 2 Drive Systems come with the Official 200 page Radio Shack 
Disk Manual. Fourth, you get $50 worth of our utility software (Disk Util 2.1A & 
Super Tape/Disk Transfer). Our drive systems are head & shoulders above the rest! 

Drive (with Disto Conlrolicr, Case, Power Supply, 1 Drive Cable, Manual, Software): $199 
Drive 1 (with Case, Power Supply & Software): $129 Bare 5 1/4" Drive: $89 

2 Drive System (With Disto Controller, Case, Power Supply, 2 Drive Cable, Manual & Software): 
$299 Full-Height Case/Power Supply: $59.95 Power Splitter: $9.95 

1 Drive Cable: $16.95 2 Drive Cable: $22.95 4 Drive Cable: $34.95 
FD501 Upgrade Kit: Bare Drive, 2 Drive Cable & Instructions: $109 
FD502 Upgrade Kit: Bare Drive, 2 Drive Cable, Power Cable & Instructions: $119 
Toshiba 3 1/2" 720K Drive w/ Power Supply & Case: $149 3 1/2" Bare Drive: $99 



MAGNAVOX Monochrome 

12" Monitor 

Sharp 80-column display w/ built-in 
speaker. Includes Video & Audio Cables. 
Only $99. (Add $8 S&H). Spec. Green/Amber. 

21st Century Software 
Ultl-Comm: Fantastic comm. software w/ windows, 
Xmodcm/Tmodem, VT52/100/ 200/220 emul., 80 
track nVsupport, ADOS support, Serial Potior RS232 
Pack up to 9600 baud & much more. CoCo 3. S39.95 
File Master 2.20 for CoCo 3: $69.95 

Connecting CoCo to Real World Book by 
William Barden, Jr. : $19.95. 




More Good Stuff... 
DS69B Digitizer: Use your CoCo to display pictures from your VCR. Comes complete with CSEE 
Software. Only $149.95. CoCo 2 Version: $99.95 
Advanced Gravis Joystick: Features tensio^rotary-centering, free floating controls with 3 buttons. 

Only $59.95 

" Microcom Serial to Parallel Interface 

1 Drive your printer at high speed (300-9600) 

• Designed by Marty Goodman so you know its quality. 

• Unlike other similar converters, this uses CRYSTAL oscil- 
latorwhich is VERY reliable at higher baud rates and different 
temperatures. 



jn, rota 



MPI Locking Plate 

(Specify CoCo 2/3 and 26-3024/3124): $8 
5 1/4" DS/DD Disks: $.40 each 
5 1/4" Colored DS/DD Disks: $.89 each 
3 1/2" DS/DD Disks: $1 29 each 
5 1/4" Disk Case (for 70 disks): $9.95 
3 1/2" Disk Case (for 40 disks): $7.50 
Black Ribbon: $8.50 NX1000 Coir Rib.: $12.95 



ich M 



512KCoCo3 



Only $44.95 



w / Serial Modem Switch: $54.95 




Brand new Color Com- 
puter 3 with 512K In- 
stalled and tested! Comes 
with complete manuals 
and $100 worth of 
software! 

Only $259 
Please Add $10 S&H 

512K Installs!. Voids Wsrraniy 



Studio Works 



Superb Digilal Audio Sampler. 
Great for special effects. Only 
S39.95. w/Cable: $54.95 



MICROCOM SOFTWARE 2900 Monroe Ave, Rochester, NY 14618. 
To Order and info on free gift: Refer to Page 1 7 of our 6-page series (Pgs 7-1 7). 

Credit Card Toll Free Orderline 1-800-654-5244 

(9AM - 8PM 7 DAYS/WEEK) 

Tech. Info (Between 4-8pm), Order Status, Info: 716-383-8830. Fax: 716-383-0026. 




+5.LY+19).16:HPUT(LX.LY)-(LX+5.L 

Y+19) .15.PSET 

610 IFLX>X-3ANDLX<X+12ANDLY<Y+17 

ANDLY>Y-9THEN630 

620 GOTO560 

630 NP-NP-1:FORI-30TO5STEP-3:PLA 

Y"V"+STR$( I )+"04FED03FED02FED01F 

ED":NEXTI:GOSUB730:FORI-1TO400:N 

EXTI:GOSUB1450:GOTO60 

640 PLAYP2$:SC-SC+250:GOSUB730:F 

ORI-1TO100:NEXTI:PLAYP3$:NP-NP+1 

650 DF-DF+1:GOSUB1540:IFDF>3THEN 

DF-3 

660 FORI-234TO30STEP-2:PALETTE6. 

RND(63):A-RND(2):HPUT(I,96+A)-(I 

+84.118+A).18.PSET:NEXTI:PLAY"01 

V30GFEDEV25ADEAV18EFAV12EFAAV6ED 

AEV31" 

670 HCOLOR7:HLINE(54,109)-(67.11 

8).PSET.BF:HPUT(30.98)-(95.110). 

17.PSET:X-58:Y-109:HGET(X.Y)-(X+ 

12,Y+18).4:A-1.4 

680 PALETTE6.RND(63):F0RI-1T095: 

NEXTI:HPUT(X.Y)-(X+12.Y+18).4:Y- 

Y+A:IFY>192THEN690ELSEHGET(X.Y)- 

(X+12.Y+18).4:HPUT(X.Y)-(X+12.Y+ 

18).3:A-A+1:GOTO680 

690 POKE65496,0:PLAY"O1GFEDC":FO 

RI-1TO450:NEXTI:PLAY"T3L3FEDL2CL 

255T255" : P0KE65497 . : FORI-1TO990 

:NEXTI:GOSUB1230:GOTO60 

700 GOTO700 

710 TQ-TQ+1:IFTQ<3THENRETURNELSE 

TQ-0:HCOLOR7:HLINE(112+TM.8)-(11 

2+TM.15).PSET:TM-TM-l:IFTM<0THEN 

HCOLOR9:HPRINT(15.10)."OUT OF TI 

ME":GOTO1590 

720 RETURN 

730 IFNP<0THEN1590ELSEHCOLOR9.7: 

HPUT(22.1)-(34.19).3.PSET:HLINE( 

38.7)-(48.17).PRESET.BF:HPRINT(4 

,1).NP:SC$-STR$(SC):S$-"0":L-LEN 

(SC$):SC$-RIGHT$(SC$.L-1) 

740 IFLEN(SC$X5THENSC$-S$+SC$:G 

OTO740ELSEHLINE(58.6)-(105.16).P 

RESET. BF 

750 HPRINT(8.1).SC$:RETURN 

760 FORI-0TO15:PALETTEI.0:NEXTI: 

RETURN 

770 FORI-0TO15:PALETTEI.C(I):NEX 

TI: RETURN 

780 FORI-0TO36 : READC( I ) : NEXTI : I F 

MT-1THENFORI-0TO18:C(I)-C(I+19): 

NEXTI 

790 DATA 0.32.1,33.36.9.63.11.44 

.63.7.40.20.4.38.16.10.11.9.0.56 

.2.16.38.5.34.5.9.63.33.47.34.32 

.38.7.10.11 

800 F0RI-1T03:READEX(I).EY(I):NE 

XT 

810 DATA 222.35.138.35.54,34 

820 F0RI-5T016:READFX(I).FY(I):N 

EXTI 

830 DATA 86.116.240.86.118.86,14 

8.56.102.40.186.40,186.40.270.40 

.98.80.58.118.180.118.220.158 

840 P1J-"O2V31DEFV20DEFV15DEFV10 

DEFV50EF 

850 P$-"C0EFGAB" : F0RI-1T04 : P2$-P 

2$+"0"+STR$(I)+P$:NEXTI 

860 P3$-"02T3L8;DD#EL40+C0-L8EO+ 

L4C0-L8E0+L2C:L8EFF#GEFL4GL8DL4F 

L2E:L255T255" 

870 P4$-"02CEDFEGFAGB" 

880 HSCREEN2:HCLS7:D$-"D3R10U3NL 

10D1G1H1G1H1G1H1G1H1G1H1" 

890 HDRAWBM100.100S12C0;XD$;":H 



PAINT(108.101).9.0:HPAINT(120.10 

7). 8.0 

900 HGET(88.96)-(143.115).l 

910 D$-"U2R2D2NL2E1U2G1L2E1R2":H 

DRAW"BM40.40;C8S16:XD$;":HPAINT( 

44.37).9.8:HPAINT(46.30).9.8:HPA 

INT(50.34).8.8 

920 HC0L0R8:HLINE(43,34)-(43.37) 

.PSET 

930 HC0L0R8:HLINE(43.34)-(43.37) 

.PSET:HGET(40,28)-(52.40),5 

940 HCLS7:HDRAWBM100.100C9S12:E 

1F1E1F1E1F1E1F1E1F1E1F1D3L12U3": 

HPAINT(116.103).8.9 

950 HCOLOR8:HLINE(100.98)-(100.1 

09).PSET:HLINE(100.109)-(136.109 

).PSET:HGET(100.90)-(136.109).8 

960 HCLS7:D$-"E1R1E1R2E1R2F1R2F1 

R1F1D1L2G1L1H1G1L2H1G1L1H1L2U1;R 

2F1R1R2NH1R1NE1R2R1E1R3" 

970 HDRAW"BM100,100C8S12;XD$;":H 

PAINT(122,96).9.8:HPAINT(134.101 

),8,8:HPAINT(118.104).8.8:HPAINT 

(102. 101). 8, 8 

980 HCOLOR8:HLINE(100.99)-(100,1 

03).PSET:HGET(100,90)-(143.107). 

9 

990 HGET(0.0)-(38.35).10 

1000 HCLS7:HDRAWBM100,100C6S12: 

XD$:":HPAINT(122.96).9.6:HPAINT( 

134.101) ,6.6:HPAINT(118.104) .6.6 

:HPAINT(102.101),6.6 

1010 HCOLOR6:HLINE(100.99)-(100. 

103). PSET: HGET( 100.90) -(143. 107) 

.11 

1020 HCLS7:HCIRCLE(100. 100). 10.1 

0:HPAINT(100.100).11.10 

1030 HCOLOR7:HLINE(96.90)-(102.9 

1). PSET. B:HLINE(96. 109) -(102. 110 

).PSET.B:HSET(96.96.9):HSET(98.9 

6.9) : HSET(95. 98.9) :HSET( 97.98,9) 

:HGET(88.89)-(111.111).13 

1040 HCLS7:D$-"E1R1E1R3F1R1F1D1L 

2H1G1L1H1G1L1H1D1F1R1E1F1R1E1F1R 

1E1":HDRAWBM100.100C0S12;XD$:": 

HPAINT(116.97).1.0:HPAINT(122.10 

4). 15.0 

1050 HGET(102,94)-(125,106),14 

1060 HCLS7:D$-"R2F1L1D2R1E1NL2H1 

R1D2L1D1F1D2R2U1H1L1D3NL3R1D1L2N 

U1L3E1U2NH1R2U1H1L1H1U2E1L1G1D2G 

1D4G1R3" 

1070 HDRAW"S8C0BM100.100:XD$;- 

1080 HPAINT(99.114).0,0:HPAINT(1 

01.102).9.0:HPAINT(106.115).9.0: 

HPAINTt 111.1 12 ).0.0:HPAINT( 100.1 

01). 0.0 

1090 HPAINT(108.117).11.0:HPAINT 

(104.117).11.0:HPAINT(106.103).l 

1.0:HPAINT(106.105).11.0:HSET(10 

3.102.0) 

1100 HCOLOR7:HLINE(96.106)-(96.1 

26).PSET:HSET(98.118.7):HGET(98. 

100)-(110.U8).2 

1110 XX-112:F0RX-94T0112: FORY-10 

0TO118:P-HPOINT(X.Y):HSET(XX,Y+2 

0,P):NEXTY:XX-XX-1:NEXTX 

1120 HGET(96.120)-(108,138).3 

1130 HCLS7:D$- M R1D1R1D1G1F1G1D2H 

1U1E1L1U1E1L1U2":HDRAW"BM100.100 

C0S12;XD$:":HPAINT(104.105).6.0 

1140 HGET(100.100)-(105.119).15 

1150 HCLS7:D$-"F1D1G1L2H1L1H1L1H 

2R5F1R2;F1R3D1L3U1BU1BR4;R2E1R5G 

2L1G1L1G1L2H1U1E1":HDRAW'BM100.1 

00C6S12:XD$:":HPAINT(98.105).4.6 

:HPAINT(116.105).4.6:HPAINT(108. 



104). 6. 6 

1160 HGET(74.97)-(139.109).17 

1170 HPUT(100.97)-(112.97+18).3. 

PSET 

1180 HGET(74.96)-(158.118).18:HG 

ET(38.40)-(67,52).20 

1190 D$-"R1F1E1R3F2D1L3NU1G1U2D1 

L1H1G1L1E1U1H1":HDRAWBM40.40C2S 

12;XD$:":HPAINT(54.43).3.2:HC0L0 

R9:HLINE(58.44) -(60.45). PSET. BF: 

HSET(60.45.0) 

1200 HGET(38.40)-(67.52).19 

1210 HGET(194.14)-(206.26).22:HC 

IRCLE(200.20).6.0:HPAINT(200.20) 

.6.0:HGET(194.14)-(206.26).21 

1220 RETURN 

1230 GOSUB760:HCLS7:LV-1:C(7)-C( 

17) 

1240 HCOLOR9.0:HLINE(0.164)-(320 

.192). PSET. BF:FORI-1TO30:HSET(RN 

D(320).168+RND(24).7):NEXT:HLINE 

(0.164)-(320. 164). PRESET 

1250 HCOLOR15:FORX-10TO280STEP62 

:HPUT(X.127)-(X+55.146).1.PSET:N 

EXTX 

1260 FORX-40TO249STEP62:HPUT(X.9 

6)-(X+55.115).l.PSET:NEXTX 

1270 FORX-72T0218STEP62:HPUT(X.6 

5)-(X+55.84).l.PSET:NEXTX 

1280 HPUT(102.34)-(157.53).1.PSE 

T:HPUT( 164.34) -(219. 53). 1. PSET 

1290 HCOLOR11.0:X-274:FORY-124TO 

104STEP-4:GOSUB1360:NEXT:X-56:FO 

RY-92TO72STEP-4:GOSUB1360:NEXTY: 

X-214:F0RY-62T042STEP-4:G0SUB136 

0:NEXTY 

1300 X-150:FORY-156TO142STEP-4:G 

OSUB1360:NEXTY 

1310 HCIRCLE(128.29).10.9:D$-"R1 

G1D1L1U1E1":HDRAW"BM124.25C9S8;X 

D$:":HPAINT(128.29).6.9:HCIRCLE( 

128.29).10.1:HSET(128.38.0) 

1320 F0RI-1T04:FX(I)-FX(I+4):FY( 

I)-FY(I+4):NEXTI 

1330 X-12:Y-145:PN-2:Hl-0:H2-0 

1340 HGET(X.Y)-(X+12.Y+18).4:G0S 

UB770 

1350 HCOLOR10.0:HLINE(112.9)-(21 

2.14).PSET.BF:HLINE(111.8)-(213. 

14). PRESET. B:TM-100: RETURN 

1360 HLINE(X.Y)-(X+20,Y). PRESET: 

HLINE(X.Y+1)-(X+20.Y+1).PSET:RET 

URN 

1370 GOSUB760:HCLS7:LV-2:C(7)-C( 

16) 

1380 I-1:FORY-50TO164STEP38:FORX 

-10TO262STEP84:CX(I)-X:CY(I)-Y:I 

-I+1:HPUT(X.Y)-(X+43.Y+17).9.PSE 

T:NEXTX.Y:CX(0)-CX(15):CY(0)-CY( 

15) 

1390 HCOLOR0.11:FORX-22TO274STEP 

84:FORY-70TO150STEP38:GOSUB1440: 

NEXTY.X 

1400 HCOLOR0.3:FORI-1TO3:X-EX(I) 

:Y-EY(I)+25:HLINE(X.Y)-(X+37.Y+3 

).PSET.BF:HLINE(X.Y)-(X+37.Y+3). 

PRESET.B:NEXTI:X-EX(3):Y-EY(3)+2 

5 

1410 HCIRCLE(32.42),10.9:D$-"R1G 

1D1L1U1E1":HDRAW"BM28.38C9S8:XD$ 

;":HPAINT(32.42),6.9:HCIRCLE(32. 

42). 10.1 

1420 F0RI-1T04:FX(I)-FX(I+8):FY( 

I)-FY(I+8):NEXTI 

1430 C-1:EE-1:X-272:Y-152:PN-3:G 

OTO1340 

1440 FORI-Y T0Y+16STEP4:HLINE(X. 
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BIG BASIC 



Full Power for your CoCo 3! 
(From Danosoft) 

Gives up to 92K User Memory in 1 28K CoCo and 476K in 51 2K 
CoCo from BASIC with any mix of program/variables. You can 
have one BIG program or 58 Separate ones running at once 
from computer memory in multiple windows! Big Basic also 
allows you to Disk Chain any size program. Step up to the 
full potential of your CoCo 3 with Big Basic. Only $39.95 



KEYBOARDS, ETC... 

6 Feet Keyboard Extension Cable. Only $39.95 
CoCo 3 Keyboard: $39.95 w/ Extension Cable: $69.95 
CoCo 2 Keyboard: $19.95 w/ Extension Cable: $49.95 
(CoCo 3 Keyboard includes free Function Keys Software) 



yFort; 



51 2K Upgrades^BIW 



.(From Orion Technologies®) 

The extended multi-port interface for CoCo 1, 2 or 3 
• 3 Cartridge Slots • 12 Volts powers anything •Use for 
disk, RS232 Pak much more • Buffered I/O • Perfect replace- 
ment for discontinued multi-pak. Intro Special. Only $74.95 



OnR 



$99 



Fully assembled, tested and ready to be shipped NOW! Our 
design allows mounting chips on top to prevent any heating 
problems. No soldering; Easy instructions for 2 minute instal- 
lation! Comes with following software (value $100): 

• 512KRamtest 

• 512K Backup Lightning 

• 512K Print Spooler 

• 512KRamdisk 

• OS9 Level II Ramdisk 
The absolute best 51 2K Upgrade Package Available! 
90 day warranty! New LOW Price $W 

OK Upgrade Board (with 512KRamtest/Ramdisk/Spooler): $39.95 

Upgrades for CoCo 2 

64K Upgrade (8 chip) for CoCo I, CoCo ll's with Cat # 26 
3026/3027/3134/3136: $29.95 
64K Upgrade (2 chip) for 26-3134 A/B CoCo II: $39.95 
(Free 64K Software included with 64K Upgrades) 



EPROM 



Tmfmmfmm 



INTRONICS EPROM PROGRAMMER: Programs 2516 to 

2701 & more! Includes software & complete documentation. 

Latest version. Lowest Price Anywhere. CoCo 1,2,3. Only 

$137.95 

DATARASE Eprom Eraser: For 24/28 pin Eproms. Erases up 

to 4 EPROMs at a time. Only $49.95 

Both Eprom Programmer & Eraser: $179.95 fw—* j 
2764 Eprom: $8 27128 Eprom: $9 ' - 

ROMPAK (w/ Blank PC Board, 27xx Series): $12.95 
BLANK CARTRIDGE (Disk Controller Size): $10.95 



COMMUNICATIONS 
EXTRAVAGANZA 2400 



(1) ZOOM 2400 Modem: Fully Hayes Compatible 300/1200 
/2400 w speaker, Auto Dial/Answer & Seven Year Warranty! 

(2) MODEM CABLE (4pin to DB25; Reg $19.95) 

(3) Autoterm Software (Reg $39.95) 

(4) Free CompuServe Offer & Access Time 

(5) UPS 2nd Day Air Shipping 

Only $189.95 



CABLES, Etc. 

Magnavox 8505/851 5/8CM643 Analog RGB Cable: $24.95 

Serial-to-Parallel Interface: Use your parallel printer at high 

speed (300-9600 baud) with the CoCo. Comes with all cables. 

No software compatibility problems. Only $44.95 

15" Shielded Multipak Extension Cable: $36.95 

Y Cable: Use your disk system with Speech/RS232 Pack, 

DS69 Digitizer, etc. Only $27.95 1 

RGB Analog Extender Cable: $19.95 

SONY Monitor Cable: $29.95 

MODEM Cable: 4 pin to DB25. Only $19.95 

2 Position Switcher: Hook 2 devices to serial port. $29.95 

HI-RES Joystick Interface: $11.99 






Zoom 2400 Modem: $149 
Avatex 1200e Modem Only : $85 
Communications Extravaganza 1200: includes 
Avatex 1200e modem w/ 2 Year Warr., cable, CompuServe 
Offer, software & 2nd Day Air Shipping. Only $129.95 



CHIPS, Etc. \^^ 

Genuine RS Disk Rom 1.1 (Needed for CoCo 3): $29.95 



ECB Rom 1.1: $29.95 

68B09E Chip: $14.95 68B21 Chip: $5.95 

GIME Chip for CoCo 3$39.95 

Genuine RS Multipak PAL Chip (Specify 26-3024 / 26-3124): 



$19.95 

PAL Switcher: Allows you to switch between CoCo 2 & 3 
modes when using the Multipak. You need the OLDER & 
NEW PAL Chip for the 26-3024 Multipak. Only $39.95. With 
NEW PAL Chip Only $49.95 



JftJF*MCROCOM SOFTWARE 



2900 Monroe Ave. Rochester.NY 14618 



Sll 



To Order: All Orders $75 and above (except Printers, Monitors, Drives, Computers) shipped by UPS 2nd Day Air at no extra 
charge in Continental US. All orders $150 or above and Word Power 3.3 orders will receive a free T-Shirt till Jan 31, 1990! 
We accept Visa, MC, Amex. Discover, Check, MO & School PO's. Please add $3.00 S&H ($10 for Drives) in Continental US; 
all others add 10% S&H (Min $5). NYS Residents please add sales tax. Our Australian Agent: Australian Peripheral Develop- 
ment. Ph: 07-341-9061. 

Credit Card Toll Free Orderline: 1-800-654-5244 (9AM-8PM 7 Days/week) | 
Tech. Info (Between 4-8pm), Order Status, Info: 716-383-8830. Fax: 716-383-0026. 




The CoCo Picture Show 

Introducing CoCo Gallery On Disk! We've got the pic- 
tures. You supply the popcorn and beverages. 

Enjoy the best from past issues of CoCo Gallery on 
your own CoCo. Volume 1 is available in a CoCo 1 or 
2 version (25 pictures) and a CoCo 3 version (1 1 pic- 
tures). The pictures offered in each version are dif- 
ferent. If you have a CoCo 3, get both versions for 
a total of 36 pictures. 



Yes! Send me Volume 1 of CoCo Gallery on Disk for 

CoCo 1 or 2 ($7.95) CoCo 3 ($7.95) 

Name 

Address 

City 



Slate 



ZIP 



Kentucky residents add 5% sales tax. 

My check in the amount of is enclosed. 

Bill to: 

□ VISA □ MasterCard □ American Express 
Account Number 



Expiration Date Signature 

Mail lo: CoCo Gallery On Disk, The Falsoft Building, P.O. Box 385, I 
Prospect, KY 40059 

For credit card orders call (800) 847-0309. 8 a.m. to 5 p.m. EST 
All other inquiries call (502) 228-4492. 




I ) - ( X+20 . I ) . PRESET : HL I NE ( X . 1+1 ) - 

( X+20 .1+1), PSET : NEXTI : RETURN 

1450 HSCREEN2:GOSUB760:HCLS7:LV- 

3:IFMT<>1THENC(7)-C(18)ELSEC(7)- 

5 

1460 FORX-20TO280STEP40:FORY-90T 

O186STEP40:HPUT(X.Y)-(X+23.Y+22) 

,13.PSET:NEXTY.X 

1470 HCOLOR13:HLINE(32.150)-(33. 

172 ). PSET. B:HLINE( 272. 110) -(273, 

132). PSET. B:F0RY-155T0168STEP2:H 

LINE(26.Y)-(39.Y).PSET:NEXTY:F0R 

Y-115T0128STEP2:HLINE(266.Y)-(27 

9.Y).PSET:NEXTY 

1480 FORX-319TO60STEP-24:HPUT(X- 

23.56)-(X.68).14.PSET:HPUT(X-23. 

26)-(X.38).14.PSET:NEXTX 

1490 HC0L0R13:HLINE(32.64)-(33.9 

3 ) . PSET . B : F0RY-64T089STEP2 : HLI NE 

(26.Y)-(39.Y).PSET:NEXTY 

1500 HPUT(246.42)-(311.54).17.PS 

ET 

1510 F0RI-1T04:FX(I)-FX(I+12):FY 

(I)-FY(I+12):NEXTI 

1520 X-272:Y-152:PN-3:Ll-0:L2-0 

1530 GOTO1340 

1540 GOSUB760:HCLS7:GOSUB730:C(7 

)-C(17) 

1550 FORX-0TO320STEP24:HPUT(X,18 

0)-(X+23.192).14.PSET:NEXTX 

1560 HCOLOR13:HLINE(0.55)-(28.19 

2),PSET.BF:HCOLOR3:FORI-0TO28:HL 

1NE(I.55)-(I.55-RN0(3)).PSET:NEX 

TI 

1570 HPUT(174.50)-(217.67).9.PSE 

T:HPUT(54.134)-(97.151).9.PSET:H 

PUT( 236. 136) -(279. 153). 9. PSET 



1580 GOSUB770: RETURN 

1590 HCOLOR9.7:HLINE(124.94)-(20 

2. 104). PRESET. BF:HPRINT( 16.12 )." 

GAME 0VER":FORI-lTO4:PLAY"V"+STR 

$( 1*7 ) : F0R0-5T01STEP - 1 : PLAY"0"+S 

TR$(0)+"BGEC":NEXTO.I 

1600 IFBUTTON(0)-1THEN50ELSE1600 

1610 DF-0:GOSUB760:HSCREEN2:HCLS 

3 

1620 DJ-"R3G1L1G1D3F2L2H1U4E2R3G 

1D2R2U1L1D1R1U1R1D1L1U2NH1U1F1D2 

R3F2L7;H1NR1ND1F1R5G1L5H1U1E1G1D 

1F1R2G1L4H1U4E2" 

1630 HCIRCLE(160.92).40,15..75:H 

C1RCLE(160.92).50.15..75:HPAINT( 

118.96).13.15:HPAINT(160.92).7.1 

5:HDRAWBM140,70C0S24;XD$:" 

1640 HPAINT(140.107).0.0:HPAINT( 

180.95).14.0:HPAINT(146.89).9.0: 

HPAINT(164.79).8.0:HPAINT(172.79 

).8.0:HPAINT(166.84).15.0:HPAINT 

(174. 84). 15.0 

1650 HC0LOR7:HLlNE(142.68)-(143. 

72).PSET.BF:HLINE(140.70)-(145.7 

0).PSET 

1660 HCOLOR0:HPRINT(13.5)."PENGU 

IN ICARUS" :HPRINT( 16. 17). "(C) 199 

0":HPRINT(12.18)."by N1ck Bradbu 

ry":HPRINT(10. 20). "press 'fire' 

to beg1n":GOSUB770 

1670 PALETTE13.RND(63):IFBUTT0N( 

0)-0THEN1670 

1680 NP-4:GOSUB1230:GOTO60 

1690 SOUND20. 4: RETURN 

1700 CMP:POKE65496.0:HSCREEN0:EN 

D 



CoCo 3 











134 

102 


\A& 

1 END .... 







Listing 2: DEMO 

* COPYRIGHT 1990 FALSOFT. INC 

10 ONBRK GOTO90 

20 HBUFF1.235:HBUFF2.235 

30 HSCREEN2:HCLS:PALETTE0.0:POKE 

65497.0 

40 FORI-1TO300:HSET(RND(320).RND 

(192).RND(15)):NEXT:HCIRCLE(160. 

96).44.5:HPAINT(160.96).3.5 

50 HGET(0.0)-(20.20),2:HCOLOR4:H 

LINE(0.0)-(20.20).PSET.BF:HGET(0 

.0)-(20.20).l 

60 FORX-0TO298STEP6:HPUT(X,Y)-(X 

+20 . Y+20 ) . 2 : HGET ( X+6 . Y ) - ( X+26 . Y+ 

20).2:HPUT(X+6.Y)-(X+26.Y+20).l 

70 NEXTX:HPUT(X.Y)-(X+20.Y+20).2 

:Y-Y+20:IFY>170THENY-0 

80 GOTO60 

90 HSCREEN0:POKE65496.0:END 



/«\ 
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7 GOOD REASONS TO BUY 
CoCo Max III & Max-10 NOW 



1) Customer Satisfaction : 10,000 Coiorware customers 

can't be wrong. 

2) Incredible performance : CoCo Max is the best 

graphics software, and Max-1 is the best word 
processor. 

3) Highly Recommended : "The Rainbow" magazine 

stated "Max-10 takes a back seat to none" and "CoCo 
Max III is the ultimate program." 



WOW! 



4) The following offer is unprecedented : CoCo Max n 

and Max-1 together for not $1 49.90, not $79.95, but 
now only $59.95. Unbelievable! 

5) Bonus Offer ! Get any of the following "addons" for only 

$14.95 each: Spellchecker, Max-10 Fonts, Max Fonts 
Set A, Max Fonts Set B, Color Printer Drivers, Max Edit. 

6) Limited Time ! These unbelievable offers end March 31 , 

1 990. Don't miss out! 

7) They Agree ! These women don't agree on anything but 

all three love CoCo Max III and Max-10. 



System Requirements 

Max-10 and CoCo Max III Require: any 
CoCo 3: 1 or more disk drives; joystick 
or mouse: Radio Shack Hi Resolution 
joystick interface; a video or RGB 
monitor or a TV. 

Max-1 0...$39.95 

Max-10 is the ultimate word processor. It 
allows on screen mixing of graphics and 
text, large headlines, multiple columns 
and full page preview with graphics. 
Without a doubt. Max-10 will add 
excitement to your word processing, and 
that's no small task! 
PRINTERS SUPPORTED: Epson 

FX.MX.RX.LX & COMPATIBLES: DMP 105.106.130: 
CGP220 (B4W); OKI 182.92.192: STAR NX-10. NX- 
1000. 

Max-1 Add-ons 

- Max-10 Fonts. 36 super fonts on 2 
disks $29.95 

Max- 10 and CoCo Max Fonts aien't Interchangeable. 

- Spell Checker 35.000 word dictionary 
for online spell checking and dictionary 
lookup. Perfect seamless integration with 
Max-10 $29.95 



CoCo Max III. ..$49.95 

Whether you doodle for fun or do graphics for a 
living. CoCo Max will amaze you. It's a 
promise. Ha major features Include: Huge 
picture area (2 full hires 320x192 screens). 
Large editing window. Zoom mode for detail 
work. 28 point and click drawing tools. Shrink 
and stretch. Rotation at any angle (1.5° steps). 
51 2K memory support (all features work with 
128K too). Undo (Oops) feature to fix mistakes. 
Animation. Special effects. Color sequencing 
(8 colors, variable speed). 13 fonts (more 
available). Each font has 8 sizes and 5 styles 
for thousands of possible combinations. Trans- 
late program to convert most types of pictures. 
CoCo Snow "slide show" program. Miniload 
program to help use pictures with your soft- 
ware. Color editing of patterns. Prints in single 
or double size. Select 16 of 64 available colors, 
all 64 colors are shown at once for easy 
selection. Pull-down menus. 40 paint brush 
shapes. 2 color lettering. Spray can. Amazing 
"flowbrush". RGB and composite monitor 
support. Colors print in 5 shades of gray. 
PRINTERS SUPPORTED: EPSON RX. fx.mx.lx and 

COMPATIBLES: STAR/GEMINI NX-10.NX-1000; DMP100.105. 
106.1 10.120.130.200; OKI B2A.182 192. CGP-220(B&W| 

Color Drivers. See below. 



Ordering Information: We accept Visa. Mastercard. Checks. M.O. 

C.O.D. is $4 extra. Purchase orders subject to credit approval. 

Connecticut residents add 8% sales tax. 
Shipping: $4 per order (usually UPS ground). Canada: $6 per 
order (Airmail). Outside USA & Canada: Add 10% of order total. 
UPS 2nd Day Air. $6 extra. Next Day service available. 





COLORWARE 



CoCoMax 3 Addons 

- Max Fonts set A, Max Fonts set B. 

Each set has two disks and over 40 

fonts $29.95 

Both sets (95 fonts) $49.95 

- Max Edit Create new fonts or edit 
existing ones $19.95 

- Color Printer drivers NX-1000 
Rainbow. CGP-220. and Okimate 

20 $19.95 

Digitizers 

Digitize any picture from any video 
source (VCR. camera...) for use with 
CoCo Max 3 or Max-10. The above 
pictures of Barbara. Arnette and Sunny 
were taken with the DS-69B. 
DS-69. Requires Multipak. 2 pictures per 

second $99.95 

DS-69B Faster: 8 pix/sec. Multipak not 
required $149.95 

A-Bus 

Data Acquisition and Control boards. Call 
Alpha Products at number below. 

Call or Write Now 

(203)656-1806 

Weekdays 9-5 Eastern Time 

242 West Avenue, 
Darien CT 06820 



A printing calculator within the CoCo 



Reckoning With 
the CoCo 



Because of the high prices asked 
for printing calculators. I 
decided to make my Color 
Computer fill the need. Cal- 
culate runs on any CoCo with 
Extended BASIC and either tape or disk. A 
printer is optional. When the program starts, 
you go straight to the calculator if a printer 
is on line. If a printer is not on line, you are 
asked if you are going to use a printer. If 
you answer Yes, you should put the printer 
on line or Calculate will wait until the 
printer is ready. At any time during pro- 
gram execution, you can toggle the printer 
on and off by holding down the SHIFT key 
and pressing CLEAR. 

The calculator screen displays letters 
that stand for the following: 

E - Current entry 

S - Subtotal 

T - Total 

L - Last entry you made 

Negative numbers are displayed with a 
minus sign in front of them. If at some time 
you press an unacceptable key, you will 



Bill Mime, a New York city firefighter, 
started computing with the CoCo in 1981 
and now uses a CoCo 3. He uses his CoCo 
for record keeping, and his three children 
use it for games. He may he contacted at 49 
Frank Court. Brooklyn. NY 11229. (718) 
332-0551. 



by Bill Minze 



hear a two-tone sound, and the top line of 
the screen will tell you what to do. One of 
these instructions comes up if you try to 
divide by zero, which would ordinarily 
create a Divide By Zero Error. This can also 
happen if you press the division key twice 
in a row without a number in between. All 
you have to do to save your previous entries 
is enter the number 1 and continue. This 
divides your subtotal by one. which does 
not change the subtotal. 

The SHlFr key is not needed to enter a 
plus sign (+) or an asterisk (*). It can be 
used, but the keys will work unshifted. The 
equal sign (=) is used with SHIFT, and 
ENTER has the same effect as an equal sign. 
C clears one or all entries. If you acciden- 
tally press BREAK, type CONT and press 
ENTER twice. This puts you back where you 
were before break was pressed. The dis- 
play is a little messy, but all entries are 
correct. 

The program allows eight digits to the 
left of the decimal point. This allows enough 
digits to cover most of my bank accounts. 
It also allows two digits to the right of the 
decimal; if a third digit is entered. Calcu- 
late will round off the second and not 
accept any more. If your total goes over 
eight digits to the left of the decimal, the 
screen and printer formats get messed up. 
but the answer will be correct. Also, after 
nine digits to the left of the decimal, the 
answer is displayed and printed in expo- 
nential notation format. 



Line 


Description 


7- 13 


Test for printer 


14- 16 


Set the first screen. 


17 


PRINT USING string & 




start calculation 


18-28 


INKEY$ and test for 




which key was entered 


29-33 


The calculation to 




be made 


34 - 39 


Addition routine 


40 - 45 


Subtraction routine 


46 - 5 1 


Multiplication routine 


52 - 57 


Division routine 


58 - 63 


Equal routine 


64-67 


Clear entry 


68-70 


Clear calculator 


71 


Test if a total was 




the last operation 


72 - 75 


Holds numbers until 




a math function 


76-78 


Inappropriate entry 


79-80 


Division by routine 


81 -82 


Switch printer on-off 


List of Variables 


N$- 


Holds PRINT USING string 


X$ - 


Holds Y or N print on-off 


z$ - 


Each character as entered 


zo$- 


Holds Z$ 


p - 


Holds value of Z0$ 


ST- 


Holds subtotal & total 


c - 


To know if total was made 


B - 


Counts the number of digits 
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The Listing: CALCULAT 



COPYRIGHT 1990 FALSOFT. INC 
******************** 
* CALCULAT 



* 
* 
* 



* BY 

* BILL M1NZE 

* BROOKLYN N.Y. * 
******************** 



1 ' 

2 " 

3 • 

4 • 

5 ' 

7 X-PEEK(65314):IF INT(X/2)-X/2 
THEN X$-"Y" 

8 IF X$-"Y" THEN 14:CLS 

9 CLS:PR1NT@128."**THERE IS NO P 
RINTER ON LINE***" 

10 PRINT@192."*** ARE YOU USEING 
A PRINTER ***" 

11 PRINT@267."YES OR NO" 

12 X$-INKEY$:IF X$-""THEN 12 

13 IF X$-"Y" OR Xt-"N"THEN 14 EL 
SE PRINT@327. "ANSWER WITH Y OR N 
":GOTO 12 

14 CLS 

15 PRINT@434."S 0-00 

16 PRINT@480."E 0-00" 

17 N $-"########.##": GOTO 34 

18 Z$-INKEY$:IF ZJ-""THEN18 

19 IF Zt-CHR$(92)THEN81 

20 IF ZJ>CHR$(47) AND Z$<CHR$(58 
)THEN 71 

21 IF Z$-CHR$(46)THEN71 

22 IF Z$-CHR$(43) OR Z$-CHR$(59) 
THEN RETURN 



23 IF Z$-CHR$(45) OR Z$-CHR$(47) 
THEN RETURN 

24 IF Z$-CHR$(42) OR Z$-CHR$(58) 
THEN RETURN 

25 IF Z$-CHR$(61) OR Z$-CHR$(13) 
THEN58 

26 IF Z$-CHR$(67)THEN64 

27 IF Z$-CHR$(12) THEN 68 

28 PRINT@0."*USE NUMBERS OR MATH 
SIGNS ONLY*":SOUND100.10:SOUND1 

50.10:GOTO 18 

29 IF Z$-CHRS(43) OR Z$-CHR$(59) 
THEN 34 

30 IF Z$-CHR$(45) THEN 40 

31 IF Z$-CHRS(42) OR Z$-CHRJ(58) 
THEN46 

32 IF Z$-CHR$(47) THEN 52 

33 IF Z$-CHR$(61) OR Z$-CHR$(13) 
THEN59 

34 GOSUB 18:ST-ST+P 

35 PRINT@434."S":PRINT@437. USING 

36 If C-0 THENPRINT®384."L+":PRI 
NT@387. USING N$;P ELSE PRINT@384 

37 PRINT@480."E 0.00" 

38 IF X$-"Y"THEN PRINT*- 2, USING 
N$;P::PRINT#-2." +" 

39 C-0: P-0:Z0$-"0":B-0: GOTO 29 

40 GOSUB 18:ST-ST-P 

41 PR1NT@434."S":PRINT@437. USING 

N*:ST 

42 IF C-0 THEN PRINT@384 ."L- :PR 
INT0387. USING NS:P ELSE PRINT@38 

4."" 

43 PRINT@480."E 0-00" 

44 IF X$-"Y"THEN PRINT#-2. USING 
N$;P;:PRINT#-2." -" 

45 C-0 :P-0:Z0$-"0":B-0: GOTO 29 

46 GOSUB 18:ST-ST*P 

47 PRINT@434 . "S" : PRINT®437 .USING 

N*:ST . „ 

48 IF C-0 THEN PRINT0384. L* :PR 
INT@387. USING N$;P ELSE PRINT@38 
4,"" 

49 PRINT@480."E 0-00" 

50 IF X$-"Y"THEN PRINT*- 2 . USING 
N$:P: : PRINT*- 2." *" 

51 C-0 :P-0:Z0$-"0":B-0: GOTO 29 



52 GOSUB 18: IF P-0 THEN GOTO 79 

53 ST-ST/P : PRINT@434 . "S" : PR1NT@4 
37. USING N$;ST 

54 IF C-0 THEN PRINTS384. "L/" : PR 
INT@387. USING N$;P ELSE PRINT038 
4."" 

55 PRINT@480."E 0-00 

56 IF XS-"Y"THEN PRINT#-2. USING 
N$;P;:PRINT#-2," /" 

57 C-0 :P-O:Z0$-"0":B-0: GOTO 29 

58 RETURN 

59 PRINT@434,"T":PRINT@437. USING 

N$;ST 

60 PRINT@384."T":PRINT®387. USING 

N$:ST 

61 PRINT®480."E 0.00" 

62 IF X$-"Y"THEN PRINT#-2. USING 
N$:ST::PRINT#-2." T"CHRJ(10) 

63 P-0 :Z0J-"0":C-l:B-0: GOTO 34 

64 PRINT@434."S":PRINT@437. USING 

N$;ST 

65 PRINT®384."" 

66 PRINT@480."E 0-00" 

67 Z0$-"0" : P-0 :C-1: GOTO 18 

68 P-0:Z0$-"0":ST-0:C-0:B-0 

69 IF X$-"Y"THEN PRlNT#-2." 
CLEAR"CHR$( 10) :PRlNT#-2. USING NS 
;P;:PRINT#-2." T" 

70 G0T014 

71 IF C-l THEN 76 

72 IF Z$-CHR$(46) THEN B-0 

73 B-B+l : I F B-9 THEN PRINT@0."*O 
NLY 8 DIGETS LEFT OF DECIMAL*":S 
OUND100.10:SOUND150.10:GOTO 64 

74 Z0$-Z0$+Z$:P-VAL(Z0$) 

75 PRINT@448."E":PRINT@451. USING 
N$;P:GOTO 18 

76 PRINT@0." USE MATH SIGN FIRS 

T + - * /" 

77 SOUND100.10:SOUNO150.10:C-0 

78 G0T018 

79 PRINT@0."YOU CAN NOT DEVIDE B 
Y ZERO ENTER NUMBER <1> NOW TO 
SAVE YOUR PREVIOUS ENTRIES. A 
NO CONTINUE" 

80 SOUND100.10:SOUND150.10:GOTO5 

2 

81 IFX$-"Y"THEN X$-"N"ELSEX$-"Y" 

82 GOTO 18 /«> 
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A free-form program that lets you create a unique database 



The Golden Retriever 



by Shane Messer 



After looking at all of the data- 
base programs on the mar- 
ket. I have found only a few 
that satisfy my need to keep 
track of more than just phone 
numbers and addresses. I want a program to 
run on the CoCo 3. use the 80-column 
mode, print records and keep track of virtu- 
ally any type of data. This narrows things 
down a bit. 

Another inhibiting factor is the price 
tag. For me and probably for other CoCo 
users as well. S60 is steep. This is why I 
decided to write ColorBase, the last data- 
base you will ever need. Here are a few of 
the program's features: 

• Completely menu driven 

• Field entry 

• Up to 255 characters of data per record 

• Up to 400 or more records per disk 

• Compatibility with a RAM disk for ex- 
tremely fast operation 

• The ability to print one or all of the 
records 

• More than one database per disk 

• Choice of default startup colors 

Some of you may be shaking your heads, 
thinking this project will be too hard. It's 
really not. You don't even have to know 
how to program. As long as you follow the 
guidelines, you can't mess up. 

Running the Program 

After typing in listings 1 and 2, save 
them on a blank formatted disk. Then run 
the program in Listing 2. This program sets 
up the default color values for ColorBase. 



Shane Messer is 14 years old and has 
worked on lite CoCo for two years. He 
enjoys studying math, science and playing 
soccer. He may he contacted at 3625 Or- 
ange Ave.. Fort Pierce. FL 34947. 



After completing these steps, run the data- 
base program. 

The Main Menu 

When you run ColorBase. the title screen 
appears and the default colors are loaded. 
When the computer is finished, a main 
menu appears that looks like this: 

C - CREATE DATABASE 

M - MAINTAIN DATABASE 

S - SCREEN DEFAULT 

X - EXIT TO BASIC 

The X option simply lets you exit to 
basic. The computer checks with you be- 
fore doing so. 

Designing Your Database 

First of all. decide what you want to 
keep track of. ColorBase keeps track of 
anything you want as long as you allow 
enough room in the entry field. A field is 
simply a section on the form where you 
enter data. For example, if you want names 
to be in your records, type in NAME with the 
desired amount of mark spaces (explained 
later). When the records come on the screen, 
you are able to enter data. ColorBase al- 
lows entries to be as long as the entered 
number of mark spaces. Anywhere you put 
a mark space, the computer lets you enter 
data at that same place. When you decide 
what data you will track, select C from the 
main menu. 

C — Create Form 

Selecting this option brings up the cur- 
rent data form you are working on. Use this 
data form to enter your field labels. Al- 
though not required on the disk, always 
save a copy using the S option in case you 
ever want to reorganize your records to 
include another field. 

Once the form is brought up. a small 
cursor appears in the center of the screen. 
Use the arrow keys to move this cursor 



around. For example, let's say you want a 
database that holds names and phone 
numbers. Use the arrow keys to move to a 
spot that you select and type in something 
like NAME. Under that you might enter PHONE. 
If you are making a receipt database, you 
may want to put stars around the whole 
thing and your address at the top. Dress it 
up — you can type any characters you want 
on the form. 

Once you are finished putting in the 
items, go back and fill in the mark spaces. 
To create one. press CTRL. The output looks 
like a small dash. You will put these where 
you want, one for each character to be 
entered. For example, if you were still 
using the Name item and wanted to be able 
to enter up to 40 characters for the name, 
you would go next to NAME and put in 40 
mark spaces by pressing CTRL 40 times. 

The only thing the computer sees is the 
mark spaces and their positions. Keep in 
mind you can keep track of only 255 data 
characters. When you try to make your 
database, the computer gives you a mes- 
sage saying there are too many mark spaces 
if you have exceeded this limit. 

Once you are finished with your form, 
press CLEAR to return to the CREATE menu. 

D — Directory 

This function, also available in the 
Maintain Database menu, displays the di- 
rectory. If you look at the REM statements in 
the program, you'll see you can change the 
value of one variable to select between a 
normal directory and a wide directory. 

V _ verify Disk 

This verifies your disk and causes a 
System Error if the disk is faulty. Make 
sure your form is saved before using this 
option. 

K — Kill 

Prompts you to enter a filename and 
kills that file. 
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R — Rename 

Allows you lo input two names and then 
renames the first to the second. 

S — Save 

Saves data form currently in memory to 
disk. 

L — Load 

Loads a previously created data form 
from disk. 

E — Erase Form 

If you are not happy with your current 
form and want to start over, press this key 
and answer Yes to the prompt. The com- 
puter erases the form so you can start over. 

M — Make Database 

When you are ready to create your data- 
base from the form, press M. The computer 
converts your data form into a database 
form. The database form contains the data 
form and infomalion about it, such as the 
location and size of entry fields. This proc- 
ess can take up to one minute so be patient. 

If your form is legal (that is. having less 
than 255 entry characters). ColorBase re- 
sponds with a prompt that asks you to enter 
the name of your database form. Remem- 
ber, this is not your data form; you will need 
this file and your database file to run the 
database. The other form is for your records 
only. Type in the name and verify your 
save. The computer responds with a prompt 
asking if you want to create a database. 
From here you should answer Yes. and 
with the next prompt enter the actual name 
of your database. This is where your rec- 
ords will be held. 

X — Exit to Main Menu 

Exits back to the Main menu. 

Maintaining Your Database 

Once you have the database form and 
database files saved to disk, you are ready 
to start entering data. Press M from the 
Main menu and enter the name of your data 
form and data file that you have saved to 
disk. A new menu appears and the total 
number of records is displayed at the 
bottom. 

A — Add a Record 

This is where you actually enter your 
data. Press A and the computer loads your 
form from disk and displays it on the screen. 

You can see the cursor at the first entry 
field before your data is entered. Enter your 
data, keeping in mind the left arrow key can 
be used as a backspace. When you are 
finished with the first entry field, press 
ENTER and the computer goes to the next 
field. Continue this process until you are 



done with the record. 

If at any time you accidentally press 
ENTER or forget a character, you can use the 
up and down arrow keys to move the cursor 
around the different entry fields to correct 
the mistake. 

When you are finished with the record, 
press CLEAR. The computer verifies your 
save and asks if you want to enter more 
records. Respond accordingly. 

If you decide to continue adding rec- 
ords, the form reappears with empty entry 
fields awaiting entry of data again. Your 
first records, if you verified your save, are 
stored on disk. 

If you answer No to the prompt to enter 
a new record, you are returned to the menu. 
If you verified your save of the previous 
record, the number of records is increased. 

S — Search Records 

Whenever you decide to look through 
the records you have saved, just press S. 
Your form pops up again and you can start 
moving through the records. Most of the 
commands, seen by pressing ENTER at the 
Search mode, are pretty self-explanatory, 
so I will explain only one of them. When 
you kill a record, all succeeding records are 
moved back one to take its place. 

The Search feature works a little differ- 
ently from the Search features with which 
you might be famil- 
iar. First, the com- 
puter prompts you for 
the search string. 
After you enter the 
string of characters 
you want to find 
(such as a name), all 
the records beginning 
with the current rec- 
ord are searched for 
that string. When the 
string is found, the 
computer jumps to 
that record. If you 
want to find the next 
occurrence, press the 
space bar. If Color- 
Base cannot find the 
string, it will respond 
accordingly. 

P — Printing Your 
Records 

If you have a 
printer and want to 
print your records, 
press P from the 
menu. The computer 
asks which record is 
to be printed. If you 
want all of them 
printed, enter an as- 



terisk (*). Next, it asks whether to send a 
line feed or not. If so, the computer prints 
one record per page. Each printed record is 
24 lines long, even if you only have one 
entry field. 

When typing in Listing 1. make sure to 
set the baud rate to half that expected by 
your printer (Line 1 20). To do this, use the 
next highest value for the poke to Location 
150. ColorBase keeps the computer in the 
high speed during printing. 

X — Exit Back to Main Menu 

This takes you back to the Main menu. 

Customizing Colors 

If you don't like the colors set up by the 
customization files created by Listing 2, 
you can change them. This is also self- 
explanatory. Please make sure to save your 
changes to disk if you want to keep the new 
colors. 

This may all seem a bit complicated to 
new computer owners. But if you follow 
these instructions, you should have no 
trouble setting up your database. Feel free 
to modify the program to add any features 
you want. If you add a really good feature, 
think about sending it to THE RAINBOW so 
the editors can share it with other users. 
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Listing 1: COLRBASE 


301 IF A$-CHR$(13) THEN X-1:Y-Y+ 

1 

310 IF PEEK(342)-191 THEN A$-CHR 






' COPYRIGHT 1990 FALSOFT. INC 






1 CLEAR 5000 


$(127) 






10 GOSUB 2300 


320 IF INSTR(AC$.A$)>0 THEN LPOK 






20 GOTO 60 


E 442368+(X-l)*2+Y*160.ASC(A$):M 






30 IF PEEK(341)-247 THEN Y-Y-l :R 


ID$(FM$(Y+1).X.1)-A$:X-X+1:PLAY 






ETURN:ELSE IF PEEK(342)-247 THEN 


K$ 






Y-Y+l: RETURN: ELSE IF PEEK(343)- 


330 IF X>80 THEN X-l 








247 THEN X-X-l : RETURN: ELSE IF PE 
EK(344)-247 THEN X-X+1:RETURN 


340 IF Y>22 THEN Y-0 ELSE IF Y<0 
THEN Y-22 










, / 


r 




40 IF CO-l THEN RETURN 


350 IF X<1 THEN X-80 




V 






50 FOR TZ-1 TO 1:F0R TX-338 TO 3 


360 LOCATE X-l .Y 






60 


... 136 


45:P0KE TX.255:NEXT TX .TZ: AJ-INK 


370 GOTO 300 




90 


... 242 


EY$:IF A$-"" THEN 50 ELSE RETURN 


380 GOTO 230 






... 137 


60 ' Co 


390 'DIRECTORY 




180 


... 202 


lorBase vl.00 


400 IF DW-0 THEN CLS:POKE LO.0:D 




270 


... 107 




IR:PRINT"Free ->": FREE(0) : GOSUB 




320 


... 139 


Written by Shane Messe 


50:POKE HI.0 




400 


... 146 


r 


410 IF DW-1 THEN GOSUB 2770 




490 


42 


Copyright (c) 


420 GOTO 230 




550 


27 


1989. All Rights Reserved 


430 'VERIFY 




660 


59 


70 ' 


440 POKE LO.0:FOR Ml-0 TO 34:F0R 




750 


... 114 


80 ' 


M2-1 TO 18:DSKI$ DR.M1 ,M2.M1$ .M 








90 PCLEAR1:FILES 1.400:DIM CX(10 


2J:NEXT M2.M1:P0KE HI.0 




870 


65 


0),CY(100).CN(100).DF$(23).FM$(2 


450 GOTO 230 








4).N$(100).S$(100),SF$(75),K$(10 


460 'KILL FORM 




970 


.., 157 


0):DW-1 "0- REGULAR DIRECTORY. 1 


470 M$-"Kill Form": GOSUB 2140 








- WIDE DIRECTORY WITH NAMES AND 


480 GOSUB 2180: IF F$-"" THEN 230 




1120 .... 


... 168 


EXTENSIONS 


490 PRINT" Kill "F$" Are you 








100 ON ERR GOTO 2990 


SUre";:LINEINPUT"? Y/N ->";C$:I 




1250 .... 


. . 217 


110 FF$-CHR$(12) ' FORMFEED FOR 


F C$-"Y" THEN POKE LO,0:KILL F$: 




1300 .... 


... 206 


DMP-132 / 
120 POKE 150.40' ' HALF YOUR BAUD 
RATE / 


POKE HI.0:GOTO 230 ELSE 230 




1302 .... 


... 193 


500 GOTO 230 




1340 .... 


... 135 


510 'RENAME FORM 




1410 


53 


130 L0-65496:HI-65497:FW-32: , THI 


520 PRINT:PRINT:PRINT" SOURCE 




1470 .... 


... 246 


S WILL BE THE WIDTH OF THE SCREE 


:":GOSUB 2180: IF F$<>"" THEN 530 






... 197 


N UPON EXITING 


ELSE 540 








140 F0RM2-1 TO 24: FM$(M2)-STRING 


530 J$-F$:PRINT:PRINT:PRINT" 








$ ( 80 . " " ) : NEXTM2 : KK-1 : CMP : GOSUB 


DESTINATION":GOSUB 2180: IF F$<>" 




1750 .... 


... 175 


1960: FOR Ml-32 TO 122: AC$-AC$+CH 


" THEN RENAME J$ TO F$ 




1830 .... 


... 227 


R$(M1):NEXT:MID$(AC$.63.1)-CHRJ( 


540 GOTO 230 




1920 ..., 


.. 239 


127):GOSUB2340:WIDTH 80:CLSS1:AT 


550 'SAVE FORM 




2000.... 


... 215 


TR S2.S3:PALETTE 10. S4: PALETTE 4 


560 M$-"Save Form": GOSUB 2140 




2060 .... 


... 55 


,S5:IF KK-1 THEN PLAY"T255L25501 


570 GOSUB 2180: IF F$-"" THEN 230 




2090 .... 


... 146 


":K$-"C":ELSE K$-"" 


580 POKE LO.0:OPEN "0".#1.F$ 




2140 .... 


33 




590 FOR T-l TO 23:WRITE #1.FM$(T 






2200 .... 


71 




):NEXT:CLOSE:POKE HI.0 






2290 .., 


247 




600 GOTO 230 






2330 .... 


... 250 


160 " 


610 'LOAD FORM 




2350 .... 


52 


170 GOSUB 1980 


620 M$-"Load Form": GOSUB 2140 




2400 ... 


,.. 135 


180 GOSUB 2150: IF ASC(A$)-12 THE 


630 GOSUB 2180: IF F$-"" THEN 230 




2450 .... 


.... 134 


N 220 


640 POKE LO.0:OPEN "I".#1,F$ 




2510 .... 


87 


190 GOSUB 2160: IF M1>0 THEN 200 


650 FOR T-l TO 23: INPUT #1.FM$(T 








ELSE 180 


):NEXT:CLOSE:POKE HI.0 




2640 .... 


.... 106 


200 ON Ml GOTO 220.950.1670.1900 


660 GOTO 230 




2690 .... 


.... 242 


1 fl • . . _ 


670 GOTO 230 


C Xt) 




2750 ... 


60 


220 'CREATE 


680 GOTO 230 




2800 . 


.... 149 


230 POKE HI.0:GOSUB 2090 


690 'ERASE FORM 




2850 ... 


.... 140 


240 GOSUB 2150:GOSUB 2160:IF Ml> 


700 M$-"Erase Current form":GOSU 




2890 ... 


.... 107 


THEN 250 ELSE 240 


B 2140 








250 IF Ml-10 THEN 160 


710 PRINT" Do you 




2990 .... 


.... 192 


260 ON Ml GOTO 270.390.430.460.5 


really wish to erase the curren 




END 


.... 215 


10.550.610.690.750 

270 'CREATE FORM 

280 CLS:FOR Ml-0 TO 22:PRINT FM$ 


t form? Y/N" 

720 GOSUB 2150: IF A$-"Y" THEN 73 

ELSE 230 












(M1+1)::NEXT:L0CATE 0.23:PRINT" 


730 FOR T-0 TO 22: FM$(T)-STRING» 






Use Arrow keys to move around 


(80." "):NEXTT:GOTO 230 






page. Press 'CLEAR' to ret 


740 GOTO 230 






urn to menu."; 


750 'MAKE DATABASE 






290 X-40:Y-11 


760 FC-0:M$-"Make Database":GOSU 






300 GOSUB 30: IF ASC(A$)-12 THEN 


B2140 






220 


770 PRINT" Conv 
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In 1989, 

Color Computer users 

just like you 

from across North America 

described their 

dream computer to us. 



In 1990, 

Kenneth-Leigh Enterprises and 
a team of engineers and 
developers will introduce 
the computer you demanded. 





Write to us for details 
and join the celebration! 




Tell me more about the new computer! 
NAME 



ADDRESS 



CITY/STATE/ZIP 



Mail to: Kenneth-Leigh Enterprises 
Suite 10 

1840 Biltmore Street NW 
Washington, DC 20009 



Tandy products arc registered trademarks of Tandy Corporation. Copyright © I990. Kenneth-Leigh Enterprises. 



ertlng data to database form. PI 

ease wait ..." 

780 FOR T-l TO 23 

790 N-INSTR(FM$(T).CHR$(127)):IF 

N-0 THEN DF$(T)-FM$(T):NEXT 
800 IF N>0 THEN NI-NI+1 :CX(NI )-N 
:CY(NI)-T:F0R WA-N TO 79: IF MID$ 
(FM$(T).WA.1)-CHR$(127) THEN CN( 
NI)-CN(NI)+l:MID$(FM$(T).WA.l)-" 

":NEXT WA:ELSE 
810 IF T-24 THEN 830 
820 GOTO 790 

830 FOR T-l TO NI : FC-FC+CN(T) : NE 
XT T:IF FC>255 THEN PRINT" Sorry 
1 You have too many entries! Pie 
ase re-ed1t!":GOSUB 50:GOTO 230 
840 PRINT:PRINT" 

Done!" 
850 PRINT:PRINT" You are read 
y to save your database form. (D 
EFAULT 1s DATAFORM.DAT) 
860 GOSUB 2180: IF F$-"" THEN F$- 
"DATAFORM.DAT" 

870 PRINT:PRINT" Save "F$" 
to disk? Y/N ->": 
880 LINEINPUT A$:IF A$-"Y" THEN 
890 ELSE 230 

890 POKE LO.0:OPEN"O".#1.FS 
900 WRITE #l.NI:FOR T-l TO NI:WR 
ITE #1.CX(T),CY(T).CN(T):NEXT:F0 
R T-l TO 23:WRITE #1 ,0F$(T) : NEXT 

:CLOSE:POKE HI.0 

910 LINEINPUT" Use form to 
create a database? Y/N ->":A$:IF 

A$-"Y" THEN POKE LO.0:OPEN"O" .# 
1. "MISC. DAT": WRITE #1 .0: CLOSE: GO 
SUB 912:GOSUB 2180: IF F$-"" THEN 

F$-"DATABASE . DAT" : OPEN"0" ,#1 . F$ 
:CLOSE:GOTO 230:ELSE OPEN"0".#l. 
F$:CLOSE:GOTO 230 

911 GOTO 920 

912 PRINT" You are ready to c 
reate your database. (DEFAULT 1s 

DATABASE. DAT)":RETURN 
920 GOTO 230 
930 GOTO 230 

940 " 

950 "MAINTAIN 

960 SW-0:PRINT" Please enter 

then name of your database form 

(DEFAULT 1s DATAFORM.DAT)":GOSU 
B2180:IF F$-"" THEN Dl$-"DATAFOR 
M.DAT" ELSE Dl$-F$ 
970 PRINT" Please enter the 

name of your database file (DEF 
AULT is DATABASE. DAT)":GOSUB 218 
0: IF F$-"" THEN D2$-"DATABASE. DA 
T" ELSE D2$-F$ 
980 GOSUB 2350 
990 CL0SE:G0SUB 2060 
1000 PRINT:PRINT:PRINTM$"No. of 
records ->";NF 

1010 GOSUB 2150:GOSUB 2160:IF Ml 
>0 THEN 1020 ELSE 1010 
1020 IF Ml-6 THEN 160 
1030 ON Ml GOTO 1040.1210.1370.1 
540.1590 
1040 'ADD 
1050 GOSUB 2360 

1060 CLS:FOR T-l TO 23:PRINT DFJ 
(T)::NEXT 
1070 PRINT" 

Press 'CLEAR' to leave." 

i080 C-l 

1090 IF C<1 THEN C-l: ELSE IF ON 

I THEN C-NI 



1100 GOSUB 2380 

1110 IF N$(C)>"" THEN PRINT N$(C 

): 

1120 GOSUB 50 

1130 IF ASC(A$)-13 THEN LOCATE C 

X(C)-1.CY(C)-1:PRINT STRING$(CN( 

O," ");:LOCATE CX(C)-1.CY(C)-1: 

PRINT N$(C);:PRINTMID$(DF$(CY(C) 

).CX(C)+CN(C).l): :C-C+l:GOTO 109 



1140 IF ASC(A$)-94 THEN C-C-l:GO 

TO 1090 

1150 IF ASC(A$)-12 THEN 2400 

1160 IF INSTR(ACJ.A$)>0 AND LEN( 

N$(C)XRM THEN PRINT A$;:N$(C)-N 

$(C)+A$ 

1170 IF ASC(A$)-8 AND LEN(N$(C)) 

>0 THEN N$(C)-LEFT$(N$(C).LEN(NJ 

(C))-1):G0SUB 2380:PRINT STRINGS 

(CN(C)." ")::GOSUB 2380:PRINT N$ 

(C); 

1180 GOTO 1120 

1190 GOTO 990 

1200 " 

1210 'SEARCH 
1220 SW-0 

1230 GOSUB 2360:CLS:GOSUB 2600 
1240 IF XX<1 THEN XX-1 ELSE IF X 
X>NF THEN XX-NF 

1250 SW-SW+1:IF SW-1 THEN GOSUB 
2570:ELSE GET #1 .XX : V$( l)-KJ(l) : 
GOSUB 2850: FOR T-l TO NI: LOCATE 
CX(T)-1.CY(T)-1:PRINT S$(T);:NEX 
T:POKE HI.0 
1260 IF SW-1 THEN 1250 
1270 LOCATE 0.23:PRINT" 
<ENTER> for Commands. <Clear> T 
o quit. Rec no.->":XX; 
1280 GOSUB 50 

1290 IF ASC(A$)-94 THEN XX-XX+10 
:G0T0 1240:ELSE IF ASC(A$)-10 TH 
EN XX-XX-10:GOTO 1240:ELSE IF AS 
C(A$)-8 THEN XX-XX-1:G0T0 1240 E 
LSE IF ASC(A$)-9 THEN XX-XX+l:GO 
TO 1240 

1300 IF A$-"S" THEN LOCATE 0.23: 
PRINT STRING$(78." ")::L0CATE 0. 
23:LINEINPUT "Search for what st 
ring? ->";S$:IF S$-"" THEN At-" 
":GOSUB 2880:GOSUB 5000:GOTO 130 
2 ELSE IF S$<>"" THEN GOSUB 2880 
:GOSUB 5000:IF REC > NF THEN 130 
2 

1301 IF Z>NF THEN 1302 ELSE I FA$ 
-"S"THENLOCATE0.23:PRINT"Press < 
SPACE> to go to next occurence o 
r <ENTER> to exit. RECORD:":Z; :E 
XEC44539:Z$-INKEY$:IFZ$-" "THENX 
X-XX+1: IF XX>NF THEN 1302 ELSE G 
OSUB2880:GOSUB5000:GOTO 1301 

1302 LOCATE 0.23:PRINTSTRING$(75 
." "): 

1310 IF A$-"K" THEN LOCATE0.23:P 
RINT STRING$(78." ")::LOCATE 0.2 
3: PRINT" Delete current 
record? Are you sure?"; :GOSUB 50 
:IF A$-"Y" OR A$-"y" THEN GOSUB 
2570: IF T-NF THEN GOSUB 3000 ELS 
E FOR T-XX TO NF-1 :GET#1 .T+l :PUT 
#l.T:NEXT:NF-NF-l:GOSUB 
1320 IF A$-"F" THEN XX-1: GOTO 12 
40:ELSE IF A$-"L" THEN XX-NF:GOT 
1240 

1330 IF ASC(A$)-12 THEN 990 
1340 IF ASC(A$)-13 THEN GOSUB 26 
10:GOTO 1240 
1350 GOTO 1240 



1360 ' 

1370 'EDIT 

1380 LOCATE 0. 18: LINEINPUT"Which 

record to edit? ->":E$:E-VAL(E$ 
):IF E<1 OR E>NF THEN 990 
1390 GOSUB 2360:GOSUB 2570:GET § 
l.E:V$(l)-K$(l):GOSUB 2850:FOR T 
-1 TO NI:N$(T)-S$(T):NEXT 
1400 CLS:FOR T-l TO 23:PRINT DF$ 
(T)::NEXT:FOR T-l TO NI: LOCATE C 
X(T)-1.CY(T)-1:PRINT N$(T);:NEXT 

T 
1410 LOCATE 0.23: PRINT" 

Press 'CLEAR 
1 to leave."; 
1420 C-l 

1430 IF C<1 THEN C-l: ELSE IF ON 
I THEN C-NI 
1440 GOSUB 2380 

1450 IF N$(C)>"" THEN PRINT N$(C 
): 

1460 GOSUB 50 

1470 IF ASC(A$)-13 THEN LOCATE C 
X(C)-1.CY(C)-1:PRINT STRING$(CN( 
O," ")::LOCATE CX(C)-1.CY(C)-1: 
PRINT N$(C)::PRINTMID$(DF$(CY(C) 
).CX(C)+CN(C).1)::C-C+1:G0T0 143 


1480 IF ASC(A$)-94 THEN C-C-1:G0 
TO 1430 

1490 IF ASC(A$)-12 THEN OO-l: GOT 
2400 

1500 IF INSTR(AC$.A$)>0 AND LEN( 
N$(C)XRM THEN PRINT A$;:N$(C)-N 
$(C)+A$ 

1510 IF ASC(A$)-8 AND LEN(NKO) 
>0 THEN N$(C)-LEFT$(N$(C).LEN(N$ 
(C))-1):G0SUB 2380:PRINT STRINGS 
(CN(C)." ")::G0SUB 2380:PRINT N$ 
(C): 

1520 GOTO 1460 
1530 GOTO 990 
1540 'DIRECTORY 

1550 IF DW-0 THEN POKE HI.0:CLS: 
DIR:PRINT"Free ->":FREE(0) : GOSUB 

50: POKE LO.0-.GOTO 990 
1560 IF DW-1 THEN GOSUB 2770 
1570 GOTO 990 
1580 GOTO 990 
1590 'PRINT 

1600 CLS:M$-"Pr1nt record(s)":GO 
SUB 2140:PRINT:PRINT:PRINT:LINEI 
NPUT"WHICH RECORD TO PRINT ('*' 
FOR ALL) ->":N$:IF N$-"*" THEN 1 
620 

1610 IF VAL(N$)<1 OR VAL(N$)>NF 
THEN 1650 

1620 LINEINPUT"FORMFEEDS? ->";YF 
$:PRINT"PRESS ANY KEY TO BEGIN.. 
...": GOSUB 50 

1630 IF N$-"*" THEN FOR FF-1 TO 
NF:GOSUB 2900:NEXT FF:GOTO 1650 
1640 FF-VAL(N$):GOSUB 2900 
1650 GOTO 990 
1660 ' 

1670 "SETUP 

1680 GOSUB 2020 

1690 GOSUB 2150:GOSUB 2160:IF Ml 

>0 THEN 1700 ELSE 1690 

1700 IF Ml-3 THEN 160 

1710 ON Ml GOTO 1720.1850 

1720 'SET DISPLAY 

1730 C0-1:X-S4:Y-S5 

1740 M$-"Setup Display":GOSUB 21 

40 

1750 LOCATE 10.5: PRINT"Foregroun 



28 



THE RAINBOW April 1990 



d ->"S4 I960 POKE LO.0:OPEN"I".#1. "SETUP 

1760 LOCATE 10.6: PRINT"Backgroun " : I NPUT #1 . SI . S2 . S3 . S4 . S5 : C LOSE : 

d ->"S5 POKE HI.0:RETURN 

1770 LOCATE 15.8: PRINT"Press 'EN 1970 "PRINT MENU 1 

TER' to exit." 1980 M$-" Main Menu ":GOSUB 2140 

1780 IF INKEY$-CHR$(13) THEN CO- 1990 M$-STRING$(30." ") 

0:GOTO 1680 2000 PRINT M$"C - Create Databas 

1790 GOSUB 30:S4-X:S5-Y e": PRINTM$"M - Maintain Database 

1800 IF S5>63 THEN S5-0 ELSE IF ": PRINTM$"S - Screen Dafault":PR 

S5<0 THEN S5-63 INTM$"X - Exit Program to BASIC" 

1810 IF S4>63 THEN S4-1 ELSE IF :SL$-"CMSX" 

S4<0 THEN S4-63 2010 RETURN 

1820 X-S4:Y-S5 2020 -PRINT MENU 2 

1830 PALETTE 4.S5:PALETTE 10. S4 2030 M$-"Setup Display": GOSUB 21 

1840 GOTO 1750 40:M$-STRING$(30." ") : PRINTM$"C 

1850 'SAVE DEFAULT - Customize Display":PRINTM$"S - 

1860 POKE LO.0:OPEN "0".#1 ."SETU Save Default": PRINTM$"X - Exit 

P":WRITE #1.S1.S2.S3.S4.S5:CL0SE to Main Menu":SL$-"CSX":RETURN 

.■POKE LO.0 2040 RETURN 

1870 GOTO 1670 2050 'PRINT MENU 3 

1880 GOTO 160 2060 M$-"Ma1ntain Database":GOSU 

1890 ' B 2140:M$-STRING$(30." "):PRINTM 

$"A - Add Record" :PRINTM$"S - Se 

1900 'EXIT arch records":PRINTM$"E - Edit R 

1910 M$-"Ex1t": GOSUB 2140:PRINT" ecord" : PRINTM$"D - D1 rectory" : PR 

Do you really INTM$"P - Print Record":PRINTM$" 

wish to exit? (Y/N) ->":GOSUB 2 X - Exit to Main Menu": SL$-"ASED 

150 PX": RETURN 

1920 IF A$-"Y" THEN CLS:WIDTH Fw 2070 RETURN 

:END:ELSE 160 2080 'PRINT MENU 4 

1930 GOTO 160 2090 M$-"Create Database":GOSUB 

1940 ' 2140:M$-STRING$(30." "):PRINTM$" 

C - Create Form":PRINTM$"D - D1r 

ectory":PRINTM$"V - Verify Disk" 



:PRINTM$"K - Kill Form":PRINTM$" 

R - Rename Form":PRINTM$"S - Sav 

e Form":PRINTM$"L - Load Form":S 

L$-"CDVKRSLEMX" 

2100 PRINTM$"E - Erase current f 

orm":PRINTM$"M - Make Database": 

PRINTM$"X - Exit to main menu":R 

ETURN 

2110 RETURN 

2120 'PRINT MENU 5 

2130 RETURN 

2140 ATTR 2.4:CLS:M1-LEN(M$):M1- 

80-Ml:Ml-INT(Ml/2):ATTR 3.2:PRIN 

TSTRING$(M1-1." ");:ATTR S2.S3.U 

:PRINTM$" ";:ATTR 3.2: PRINT: PRIN 

T:ATTR 2. 4:PRINT:PRINT: RETURN 

2150 EXEC 44539:A$-INKEY$:PLAY"T 

10L10O4A":RETURN 

2160 M1-INSTR(SL$.A$):RETURN 

2170 ' 

2180 LINEINPUT" PLEASE INPUT 

THE FILENAME->";F$ 

2190 IF F»-"" THEN RETURN 

2200 IN-INSTR(F$."."):IM-INSTR(F 

$."/") 

2210 IF (IN OR IMX1 AND LEN(F$) 

>8 THEN 2280 

2220 IF (IN OR IMX1 THEN F$-F$+ 

".DAT" 

2230 IF IM>1 THEN MID$(F$. IM. 1)- 

2240 IF LEN(F$)-INSTR(F$.".")>3 



MLBASIC 2.0 - BASIC Compiler 

If you wantyour BASIC programs to run up to SO times faster, or want more 
programming features without learning another language. MLBASIC Is for you. 

MLBASIC Is the most compatible BASIC compiler available for the Color Com- 
puter. WHY? Because MLBASIC fully supports: 

- Low- and high-resolution graphics 

- All types of I/O (disk, screen, printer, RS232-) 
- All available commands offered with BASIC 

- Floating point functions and expressions 
- Integer, floating point and string type variables and arrays 

- Use of all available S12K RAM In the COCO 3 

• 80,40 or 32 column text displays 

MLBASIC not only contains everything that you would expect a BASIC pro- 
gramming language should contain. MLBASIC has features that offer flexibility 
of other languages like C, Pascal. FORTRAN and even assembly language. These 
features will allow programmers to directly access the CPU registers on the 
COCO, produce modular program code with SUBROUTINES, manipulate memory 
in blocks, and even call ROM routines In other areas of memory. 

MLBASIC revision 2.0 has Incorporated all enhancements that were 
suggested by MLBASIC 1.0 users and more. Revision 2.0 did away with all the In- 
compatibility problems that existed with revision 1.0. 

MLBASIC allows for the first time user to quickly compile a program using 
default compiler settings The advanced user has the capability of controlling 
over a dozen settings which control where the program is compiled, which 
medium to compile to (memory or disk), string space, compiler listings and 
more. 

With all this going for MLBASIC, your might expect the cost to be a little out 
of your budget. After looking at prices of other BASIC compilers for the COCO 3 
you might be correct. But look again at this ad: for only $59.95. you can have a 
programming language that will spark your Interest once again In the COCO. 

Before you buy another BASIC compiler for the COCO, find out If it supports 
everything MLBASIC supports. Then look at the price tag. We feel that It won't be 
long before you place an order for MLBASIC. 

"MLBASIC Is a One program for any serious programmer, " 
said David Oerald In the December 1987 RAINBOW 

<<<< ONLY*59 98 >>>> 

COCO 3 WITH DISK REQUIRED -Add $4.00 Postage. 
Check, Money Order or COD accepted 
Foreign orders use U.S. MONEY ORDERS only. 



WASATCH WARE 

7350 Nutree Drive 

Salt Lake City, Utah 84121 

Phone (801) 943-1546 



Nine-Times 

The first magazine devoted exclusively to OS-9! 

Every other month you will receive a disk jam-packed 
with programs and articles all for OS-9. 

Each Issue contains: 10 helpful and useful programs to help build your OS-9 
library • Instructions, examples, and samples of Baslc09 procedures and 
subroutines to help with your own programs and your understanding of Baslc09 
■ C programs and programming examples • Program reviews. Hints, Help 
columns, and Informative articles to advance your knowledge of OS-9 ■ Supplied 
totally of 5.25" disk ■ Bound manual sent to each new subscriber for help In 
getting Nine-Times up and running, as well as tips on using It with a ram disk or 
hard disk " All graphic/Joystick Interface for ease of use. 



1-Year Subs, $34.95 



Canadian postage, add SI. 00 
Foreign postage, add S7.00 



Back Issues: Available for the May, July, Sept., and Nov. 1989, & Jan. 
1990 Issues. Please write for Information on Back Issue contents. 

Back Issue, ea. $7.00 Foreign postage, add S 1 .50 ea. 



Magazine Source; Due to many inquiries, the source code for the 
magazine graphic shell Is being provided as an Informational tool. Included is 
the actual Baslc09 source code and compiled modules on disk, as well as 
documentation and a printed copy of the source code. 



Source, $24.95 



Foreign postage, add SI. 50 



To order, please send U.S. 
check or money order to: 



JWT Enterprises 

5755 Lockwood Blvd. 

Youngstown, OH 445 1 2 



Technical Assistance: 

('2161-758-7694 



Sorry, no C.O.D.'s: Foretjpi & Canadian orders, please use U.S. money orders. 
U.S. checks, allow 3 weeks for receipt of first issue/back issue. 



Copyright i« 19, 



tr«a«rr«r.or 



amtoiola. loc. 
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We Cannot Tell A Lie 

Lonnie's gone nuts!! He's chopped down prices on 
Rainbow Bookshelf items! 




The Complete Rainbow Guide to OS-9 

Authors Dale Puckett and Peter Dibble BhOW hQW to 
take advantage ot OS-9's multitasking and multiuser 
Sures An easy-to-read, step-by-step •*»£■£•* 
wfh htnts tips, tutorials and free software In the form 

SffJSKW***. $19.95 (2 disks, book not 
included) - a savings ot up to 36%! 

SAVE 38%! Book and disks only $29.95 



The Rainbow Book of Simulations 

-20 award-winning entries trom THE RAINBOW'S first 
££!£» contest. You are a Civil War Commander 
aTair traffic controller, a civil ffSSSSSS^' 
a scientist on Mars . . . your wits are on the line. 
Book $3.50. Tape $3.50 - a savings of 65%. 

SAVE 70%! Book and tape only $6 






A 



-~V 



The First Rainbow Book of Adventures 

Contains 14 winning programs from our first Adven- 
ture contest. Includes Sit Randolph ol the Moors, 
Horror House, One Room, Dr. Avaloe and more. Plus 
hints, tips on solving Adventures. 
Book $2, Tape $2 — a 43% savings! 

SAVE 50%! Book and tape only $3.50 





The Second Rainbow Book of Adventures 

Featuring 24 of the most challenging Adventure 
games ever compiled. Meet the Beatles and battle the 
Blue Meanies, find a hidden fortune, or win the heart 
of a mysterious princess. Ring Quest, Secret Agent 
Man, Dark Castle, Curse ot Karos and more! 
Book $6.95, Tape $6.95 — a 50% savings! 

SAVE 57%! Book and tape only $11.95 



£> 




The Third Rainbow Book of Adventures 

The excitement continues with 19 new Adventures. 
Discover backstage intrigue at the London Theatre, 
attempt a daring space rescue, or defeat evil in the year 
2091 as a genetic android. Evil Crypt, Spymaster, Time 
Machine, The Amulet, and that's only the beginning! 
Book $6.95, Tape $6.95, Two-Disk Set $7.95 — a 
savings of up to 47%! 

SAVE 45%! Book and tape only $11.95 
SAVE 52%! Book and disk only $12.95 
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The Rainbow 
Introductory Guide to Statistics 

Dr. Michael Plog and Dr. Norman Stenzel give a solid 
introduction to the realm of statistical processes and 
thinking for both the beginner and the professional. 
(80-column printer required.) 
Book $2.95, Tape or Disk $2.95 — a savings of 54%! 

SAVE 62%! Book and tape or disk only $4.95 
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Name 

Address 

City 

State 



□ Payment Enclosed, or □ Charge to: 
D VISA □ MasterCard D American Express 

Account Number 

Card Expiration Date 

Signature 



ZIP 



Please send me: 

D The Rainbow Book ol Simulations (first) $ 9 . 9 5 $ 3.50 - 

□ Rainbow Simulations Tapeifirst) 6 9 . 95 S 3.50 _ 
D First Simulations Package 110.00 $11.95 S 6.00 . 

□ The Second Rainbow Book of Simulations $ 9.9 S S 4.95 . 

□ Second Rainbow Simulations Tape 5 0.9 S $ 4.95 . 
D Second Rainbow Simulations Disk $ 10.95 $ 4.95 . 
U Second Simulations Package with Tape $ 10.90 $12.95 $ 8.95 . 
D Second Simulations Package with Disk $20.00 $13.05 S 8.95 . 

□ The Complete Rainbow Guide to OS-9 $10.05 $1 6 .0 5 $12.95 . 

□ Rainbow Guide to OS-9 Disk Set [2 disks) «4r66- $19.95 . 
D Rainbow Guide to OS-9 Package $ 4 7.0 5 $3 6 .05 $29.95 - 
D The Windows & Applications Disk lor 

The Complete Rainbow Guide 

to OS-9 Level II. Vol. I $19.95. 

D The Rainbow Book of Adventures (first) $ 7.0 6 $ 0. 5 $ 2.00 - 

D Rainbow Adventures Tape (first) 5 7.95 $ 3.50 $ 2.00 . 

D First Adventure Package $15.00 $ 7.00 $ 3.50 . 

D The Second Rainbow Book of Adventures $13.90 $ 6.95 . 

D Second Rainbow Adventures Tape $13.0 6 $ 6.95 . 

D Second Adventure Package $27.00 $17.05 $1 1 .95 . 

D The Third Rainbow Book of Adventures $ 11.06 $ 6.95 . 

□ Third Adventures Tape -$-936- $ 6.95 . 
D Third Adventures Disk Set [2 disks) $ 1 4 .0 5 $ 7.95 . 

□ Third Adventure Package with Tape $21.90 $16.96 $11.95 . 

□ Third Adventure Package with Disk 820. 9 510. 9 5 $12.95 - 
D Introductory Guide to Statistics <$-645- $ 2.95 . 

□ Guide to Statistics Tape or Disk (indicate choicel $ 5 .0 5 $ 2.95 . 
D Guide to Statistics Package 

(indicate choice of tape or disk) $12.00 $ 8 .05 $ 4.95 . 
Add $2.00 per book Shipping and Handling in U.S. 

Outside U.S., add $4 per book 
Kentucky residents add 5% sales tax 

(Allow 6lo 8 weeks tor delivery) Total 



Mail to: Rainbow Bookshelf, The Falsoft Building, P.O. Box 385, 
Prospect, KY 40059. To order by phone [credit card orders only) 
call (800) 847-0309, 8 a.m. to 5 p.m. EST. For other inquiries call 
(502) 228-4492. 

Please note The tapes and disks ottered by The Rainbow Bookshelf are not stand-alone products Thai is. 
they are intended to be an adjunct ana complement to the books. Even it you buy the tape or disk, you will 
still need the appropriate book (or loading and operating instructions OS-9* is a registered trademark ol the 
Micro ware Systems Corporation 
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THFN 2280 

2250 IF INSTR(F$."/")>0 THEN 228 



2260 RETURN 

2270 RETURN 

2280 PRINT " BAD FILENAME": SO 

UND 1.2: GOTO 2180 

2290 * 



2300 POKE 65497. 0:WIDTH 40:CLS3: 

ATTR 2.4:CLS:LOCATE 0.3: FOR S-l 

TO 8:READ Cl$:GOSUB 2320:PRINT:N 

EXT:POKE 65496.0 

2310 RETURN 

2320 L-LEN(Cl$):L-40-L:L-INT(L/2 

):PRINTSTRING$(L." ") ;C1$ : RETURN 
2330 DATA ColorBase vl.20.For 12 
8k CoCo with disk drive. Written 
By Shane Messer ."Copyright (c). 
1989". Modified 1/16/90. All Right 
s Reserved. Configuring Program. P 
lease Wait ... T ,_ n , 

2340 LOCATE 0.17 : PRINT: LOCATE0. 1 
7:Cl$-"Done.":G0SUB 2320: PRINT: C 

l$-"Press any key to continue .. 

.":GOSUB2320:PLAY"L20T10O3A":EXE 

C 44539: RETURN 

2350 CL0SE:P0KE LO.0:OPEN "I .#1 

. "MISC. DAT": INPUT #1.NF:CL0SE:P0 

KE HI. 0: RETURN 

2360 CL0SE:P0KE LO.0:OPEN "I".#l 
D1$:INPUT#1.NI:F0R T-l TO NI : IN 
PUT #1.CX(T).CY(T).CN(T) -.NEXT: FO 
R T-l TO 23:INPUT #1.DF$(T):NEXT 
:CL0SE:P0KE HI.0:RETURN 
2370 ' 



2380 LOCATE CX(C)-1,CY(C)-1 
2390 RM-CN(C):LM-1: RETURN 
2400 LOCATE 0.23: : PRINT" 

Do you wish to save t 
his record? <Y/N)"::FOR TX-1 TO 
10: FOR TY-338 TO 345: POKE TY.255 
:NEXT TY.TX tr 

2410 IF OO-l THEN GOSUB 50: IF A$ 
-"N" THEN FOR T-l TO NI:N$(T)-"" 
:NEXT:GOTO 990 

2420 IF 00-1 THEN GOSUB 2480 
2430 IF 00-1 THEN OO-0:GOTO 990 
2440 GOSUB 50: IF A$-"N" THEN FOR 
T-l TO NI:N$(T)-"":NEXT:GOTO 24 
50 ELSE GOSUB 2480 
2450 LOCATE 0.23:PRINT" 

recordsDo you wish to keep 
adding files? <Y/N>": 
2460 FOR T-l TO NI :N$(T)-"":NEXT 
2470 GOSUB 50: IF A$-"N" THEN 990 
:ELSE IF A$-"Y" THEN 1060 ELSE 2 
470 

2480 IF 00O1 THEN NF-NF+1 
2490 CLOSE:POKE LO.0:OPEN "D".#l 

.02$ .255 

2500 S$-"":FOR Q-l TO NI: GOSUB 2 

86B:S$-S$+N$(Q):NEXT: FIELD #1.25 

5 AS K$(l) 

2510 LSET K$(l)-S$ 

2520 IF 00-1 THEN PUT#1 ,E:CLOSE: 

POKE HI.0 ELSE PUT #1.NF:CL0SE:P 

OKE HI.0 

2540CLOSE:OPEN"O".#1."MISC":WRI 

TE #1.NF:CL0SE:P0KE HI.0 

2550 RETURN 

2560 '--- 



2570 CLOSE-.POKE LO.0:OPEN "D".#l 
.D2$.255:FIELD #1 . 255 AS K$(l) 
2580 RETURN 
2590 ' - YV.Y-YV. 

2600 FOR T-l TO 23: PRINT DF$(T): 

:NEXT:RETURN 

2610 ' "" 

2620 LOCATE 0.0 „,«„„-.. 

2630 FOR T-l TO 23:PRINT STRINGS 
(80 " ");:NEXT: LOCATE 0.0:M$-STR 
ING$(20." "):PRINT" nl " M$ 
"SEARCH COMMANDS":PRINT:PRINT 
2640 PRINTM$"<ENTER> 

Takes you to this menu" 
2650 PRINTM$"<CLEAR> 

To take you out of search mod 

e" 

2660 PRINTM$"<DOWN ARROW> 

Takes you ten records backwar 

ds" 

2670 PRINTM$"<UP ARROW> 

Takes you ten records forward 

2680 PRINTM$"<LEFT ARROW> 

Takes to back one record" 
2690 PRINTM$"<RIGHT ARROW> - 

Takes you forward one record" 
2700 PRINTM$"<K> 

Delete the current record 
2710 PRINTM$"<F> 

Takes you to first record" 
2720 PRINTM$"<L> 

Takes you to last record" 
2730 PRINTM$"<S> 

Searches for entered string 
2740 PRINT:PRINT:PRINT:PRINTM$" 
Press any key to return to sear 

2750 GOSUB*50:GOSUB 2600:RETURN 
2760 " VY.Y.Y.Y- 

2770 POKE LO.0:I-0:S-0:T-0:CLS:F 
ORT-3TO11:DSKI$0.17.T.A$.B$:C$- 
A$+LEFT$(B$.127):F0RQ-1T0255STEP 
32-IFMID$(C$.Q.l)-CHRS(0)THEN279 
0ELSEIFMID$(C$.Q.D-CHR$(255)THE 

N2800 „ ,, , T 

2780 SF$(I+T-3)-MID$(C$.Q.lD:I- 

1+1 

2790 NEXT Q.T 

2800 POKE HI.0-.FOR S-0 TO I+3:SF 

$(S)-LEFT$(SF$(S).8)+"."+MID$(SF 

$(S).9.3):NEXTS:F0R S-0TOI+3:IF 

LEN(SF$(S)) <> 1 THEN PRINT " " 

:SF$(S):" "::ELSE 2810 

2810 NEXTS:PRINT:POKE LO.0:PRINT 

"Free ->" :FREE(0) : POKE HI.0 

2820 FOR S-0 TO I+3:SF$(S)-"":NE 

XT 

2830 GOSUB 50 

2840 RETURN —„,.,, 

2850 POKE 65497. 0:PS-1:FOR T-l T 

0NI:S$(T)-MID$(V$(1).PS.CN(T)): 

PS-PS+CN(T):NEXT:PS-0:POKE 65496 

,0:RETURN 

2860 IF LEN(N$(Q)XCN(Q) THEN N$ 

(Q)-N$(0)+STRING$(CN(Q)-LEN(N$(0 

))." ") 

2870 RETURN 

2880 GOSUB 2570: IF XX>NF THEN RE 

TURN ELSEFOR Z-XX TO NF:GET #1 . Z 

I IF INSTR(K$(1).SJ)>0 THEN XX-Z: 

RETURN 



2890 NEXT Z:L0CATE 0.23-.PRINT ST 
RING$(79." ")::L0CATE 0.23:SOUND 
1.1:ATTR 2.4.B:F0R T-l TO 10:PR 
INT:NEXT T:PRINT" 

SPCIFIED STRING IS NOT ABL 
E TO BE LOCATED!": EXEC 44539: ATT 
R 2.4:A$-" ": RETURN 
2900 'PRINT OUTS 
2910 SF-1: GOSUB 2360:GOSUB 2570: 
GET #1.FF:V$(1)-K$(1):G0SUB 2850 
2920 POKE 65497. 0:FOR T-l TO 23 
2930 IF CY(SF)>T OR SF->NI THEN 
PRINT #-2.DF$(T):NEXT T:GOTO 297 

2940 FOR K-l TO LEN(DF$(T)) 

2950 IF CX(SF)-K AND CY(SF)-T TH 

EN PRINT #-2,S$(SF);:K-K+LEN(S$( 

SF)):SF-SF+1:ELSE PRINT #-2.MID$ 

(DF$(T).K.l); 

2960 NEXT:PRINT#-2:NEXT 

2970 IF LEFT$(YF$.1)-"Y" THEN PR 

INT #-2.FF$ 

2980 RETURN 

2990 WIDTH 40:CLS:PRINT"SYSTEM E 

RRQR'!":SOUND 1 . 1 :PRINT"ERROR #" 

•ERNO" IN LINE " -.ERLIN: LINEINPUT 

"RERUN PROGRAM? ->";Y$:IF LEFTJ( 

Y$.1)-"Y" THEN RUN ELSE END 

3000 A$-STRING$(255." "):LSET K$ 

(1)-A$:PUT#1.1:CL0SE:NF-NF-1:G0 

SUB 2540: RETURN 

5000 POKE 65497. 0:CLS:GOSUB 2600 
•POKE 65496. 0:IF XX>NF THEN REC- 
NF+1:RETURN ELSE REC-NF-1 

5001 GET #1.XX:V$U)-K$(1):G0SUB 
2850:POKE 65497. 0:FOR T-l TO NI 

:LOCATE CX(T) -1 .CY(T)-1 :PRINT S$ 
(T)::POKE 65496. 0: NEXT: RETURN 



Listing 2: CONFIG 

■ COPYRIGHT 1990 FALSOFT, INC 

10 • CONFIG FILE CREATOR 

20 WIDTH 32:P0KE &H95C9.&H57 :POK 

E &HFF22.&H50 

30 GOSUB 80 ' 

40 PRINT" Please insert disk t 

o save the configuration file. 

":GOSUB 80:GOSUB 90:EXEC 445 

39 

50 GOSUB 80:PRINT"Thank you! Sav 

ing configuration file now ": 

GOSUB 80: GOSUB 90 

60 OPEN -0".#1. "SETUP" :WRITE #1 . 

3.2.4.0.63-.CLOSE 

70 GOSUB 80:PRINT"Done ::GOS 

UB 80: END nrTiio 

80 FOR T-l TO 8:PRINT:NEXT:RETUR 

N 

90 PLAY"T10L10O4A" 

100 RETURN 



/«\ 
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Radio Shack Is the Place to 
On Color Computer Software and Accessories 




SB* 



Become a monster — smash 

a skyscraper, trash a city. Have 

an office building for lunch. Go 

/■« ..p on a rampage! 

Ol 26-3 



B-3174 



Radio /hack' 



Light-speed space action thrusts 
you into a do-or-die battle. Use 
mighty weapons to fight "Doh", 
the grid monster. j» mt%m 

Ol 26-3 



-3043 



The Technology Store" 

A DIVISION OF TANDY CORPORATION 



CoCo Gallery 




_ 



I st Place 




SHOWCASE YOUR BEST! 

You are invited to nominate original work for 
inclusion in upcoming showings of "CoCo Gal- 
lery." Share your creations with the CoCo Com- 
munity! Be sure to send a cover letter with your 
name, address and phone number, detailing how 
you created your picture (what programs you 
used, etc.) and how to display it. Also please 
include a tew facts about yourselt. 

Don't send us anything owned by someone 
else; this means no game screens, digitized 
images from TV programs or material that's al- 
ready been submitted elsewhere. A digitized copy 
of a picture that appears in a book or magazine is 
not an original work. 

We will award one first prize of $25, one 
second prize of $15 and one third prize of $10. 

Please send your entry on either tape or disk 
to the CoCo Gallery, THE RAINBOW.P.O. Box 385, 
Prospect, KY 40059. Remember, this is a contest 
and your entry will not be returned. 

—Tony Olive, Curator 



2nd Place 



Cardinal 
Howard Rouse 

Howard, who is retired, finds the lime to create wonderful graphics 
combining the besi features of CoCo Max III and Color Max 3. He lives in 
Belleville. Florida. 



3rd Place 





Snowpeak 
James J. Gibbons 

As a professional artisi and art teacher, James uses a variety of 
graphics programs including The Rat. MUro-llhistrator. Sketch, 
The Color Computer Artist. CoCo Max II and CoCo Max III. which 
was used for this scene. He plans to continue working in this Held 
until his pictures look like paintings. James lives in Watsontown. 
Pennsylvania, 



Snowscene 
Mark Webb 

This image was created with CoCo Max III. Mark lives 
in Gold River. British Columbia and works as a pulp mill 
operator. He has had various CoCos for several years. His 
favorite pastime is programming animation demos. 
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Barden's Buffer 



Take Your Files for a Spin 



by William Barden, Jr. 
Contributing Editor 



Mrs. Barden just went through 
dozens of agonizing hours 
learning WordPerfect 5.0. 
In the process i acquired a 
new vocabulary subset 
equal to that of a Chief Petty Officer. Some 
of you have struggled through OS-9. In 
spite of protestations from the OS- 1 ) gang 
about how incredibly easy it is to learn, it 
usually takes dozens of "'incredibly easy" 
hours. Every time I add a new piece of 
software or hardware to cither my MS- 
DOS system or my CoCos. I spend any- 
where from one or two days to the rest of 
my natural life trying to get the darned 
things to work. Isn't there any software or 
hardware that's intuitive? This question 
inspired me to write a new program. 

I had in mind a R*L*D*X program — 
you know, those revolving files of small 
cards that allow you toeasily locate a name, 
telephone number and address. (I've re- 
ferred to it without the full complement of 
letters because manufacturers get sticky 
about trademarks.) 

My idea was to emulate a R*L*D*X on 
the CoCo 3 by showing cards on the right 
half of the screen. By pressing the up arrow, 
you could flip through the cards in one 



Rill Rin-ilrn ham written 35 books ami hun- 
dreds of magazine articles about .small 
computers . His newest Color Computer 
book is "Connecting the CoCo to the Reed 
World", a book of CoCo interfacing proj- 
ects. He has over 20 years experience in the 
industry on systems ranging from main- 
frames to micros. 



direction. By pressing the down arrow, you 
could flip though the cards in the other 
direction. At the end of the cards you'd 
come around again to the start in the circu- 
lar list. To keep things simple, you'd be 
allowed to pull out one card from the stack 
and put it on the left-hand side of the screen. 
You could then edit the card and replace it 
anywhere you'd like; an example would be 
to change an address or to re-sequence the 
card. There are no fancy sorts here — if the 
card was out of sequence, you'd have to Hip 
through the cards and insert it in the proper 
place. Such a file of cards could be used for 
telephone reference or Christmas card lists. 
Anyway, that was the idea. I thought the 
whole project would be easy to program. 
As it turned out. I was wrong. I should have 
known that Old Programmer's Axiom 
Number 565 was in force — there are no 
easy programs. Let me tell you how my 
final program works. 

Running fl*/,*D*A'* 

To run R*L*D*X. enter the program and 
type RUN. There is a single card on the right- 
hand side of the screen. The card displays: 

STARTING CARD 
FIELD 1 
FIELD 2 

This is just a sample card and can be 
deleted or modified. 

The bottom line on the left-hand side of 
the screen shows the current mode: Com- 
mand. Edit. Read or Write. 

To add a new card, press N. A new card 
is displayed on the left-hand side of the 



screen, which is used for editing only or for 
inserting new cards. You can enter text on 
ten lines of a card with up to 38 characters 
per line. Use the up and down arrow keys to 
move the cursor around the ten lines and 
change them as desired. To jiel out of Edit 
mode, press CLEAR: the edited card remains 
on the left-hand side of the screen. You 
have to insert the card at the proper place in 
the file. 

To insert the card, select the proper 
place by using the up and down arrow keys 
to move through the file. Initially, with 
only one card displayed, you won't be able 
to sequence through the file, but as cards 
are added you can get to any card in the file 
by using the arrow keys. To speed up 
access you can also use the right and left 
arrow keys to move ahead or back 1 cards 
at a time. An insert is done by pressing I. 
The card on the left-hand side of the screen 
(initially a new card) is inserted before the 
card displayed on the screen. After you 
insert the card, it disappears from the left 
side of the screen and reappears on the 
right-hand side in the file. 

As more cards are added, you see up to 
six cards displayed on the screen at one 
time. The first card is always shown as a 
full card with its ten fields displayed in their 
entirety. The remaining five cards show 38 
characters of a single line in packed format, 
which I will describe later. 

To re-sequence a card, first display it as 
the first card on the right-hand side of the 
screen. Then press P to pull the card. The 
card is pulled from the file and appears on 
the left-hand side of the screen. You can 
move through the file by using the arrow 
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keys. To reinsert the card, follow the Insert 
instructions above. 

To delete ;i curd, display il as the first 
card on the right-hand side of the screen 
and press D. The card is deleted and the 
next card in sequence becomes the front 
card. 

To change a card's fields, pull the card 
by locating it and pressing P. Edit it by 
pressing E. Change the text on the screen 



Implementing such a 
program in CoCo BASIC 
is not simply a matter of 
"slinging down code". 
There are important de- 
sign considerations to 
be made that affect the 
speed and capacity of 
the final result. 



and then press clear to gel out of Edit 

mode. Reinsert the card as above. 

To save a card file, press W for Write. 
The current cards are saved as the file 
ROLDATA . DAT. To read in a saved file, press 
R three times. The ROLDATA . DAT file is read 
in and destroys any cards you have in 
memory. If you've mistakenly pressed R. 
you'll see READ? and then READ?? in the 
Mode display on the bottom left of the 
screen. Press ENTER to prevent a catastrophic- 
read and return to the Command Input 
mode. For a recap of the keys see Table 1. 

Some Design Considerations 

Implementing such a program in CoCo 
BASIC is not simply a matter of "slinging 
down code". There are important design 
considerations to be made that affect the 
speed and capacity of the final result. 

Memory Storage 

First of all. consider (he amount of stor- 
age in such a program. Let's say a R*L*D*X 
has 300 cards, a typical number of entries. 
Any text data could be on any card. For 

topical use. though, you'll probably have a 

name, address and phone number. An aver- 
age entry is as follows: 

Barden. Bill 

Post Office Box 3568 

Mission Viejo. CA 92692 

(714)555-1212 

This entry requires 73 characters. Other 



entries will be shorter or larger, but for 
planning purposes, assume that 70 charac- 
ters is a good average. 

With 300 cards, the total capacity re- 
quired is 70 * 300 or 21.000 characters. 
Each character requires a byte of memory. 
In addition, there's storage required for the 
BASIC R*L*D*X program. Let's say the 
program is about 300 lines long with an av- 
erage of 25 characters per line. Even though 
(he program will be lokenized. (he pro- 
gram requires about 6000 bytes by it- 
self. The amount of free memory with 
no program loaded in CoCo 3 BASIC 
with a disk drive is 22,824 bytes. 

Right away there's a problem. How 
can 300 cards worth of data be stored 
in memory with (he program and re- 
quire 27.000 bytes when there's only 
22.824 bytes to work with? Obviously, 
we'll have to set our sights a little 
lower. However, there are some things 
you might want to do (o modify this 
program for a larger number of cards. 
One solution is to put the cards on 
disk. However, with the cards on disk, 
the speed of the program will probably 
be downgraded considerably as cards 

arc brought in from the disk tile. You'd 

probably have to use assembly language to 
get acceptable scrolling speeds with a disk 
file. 

Another solution is lo lake advantage of 
(he 1 28K or 5 1 2K bytes in the CoCo 3. The 
CoCo 3 uses a 64K block of memory for 
basic. Another 64K is used for CoCo 3 
high-resolution functions: the Hi-Res screen. 
HBUFF storage for HGETs and HPUTs, and so 
forth. Unfortunalely. there's no memory 
left over for variables in a I28K system. 
However, in a 512K byte CoCo 3 system, 
(here's another 384K bytes of memory just 
waiting lo be used for storage. This block 
can be accessed by the special LPEEKs and 
L POKEs in CoCo 3 Super Extended BASIC 
However, to do this you need some kind of 
special memory allocation scheme thai lets 
you store strings of varying size in an 
efficieni manner. This is not an easy task. 

For this version, we have to gel by with 
about 15.000 bytes for storage — about 
230 average cards or 500 cards wiih an 
average of 32 characters (enough for a 
name and phone number). 

Program Speed 

Another consideration for R*L*D*X is 
speed of operation. The manner in which 
data is stored very much affects the speed 
of access. We could use an array of strings. 
Array Z$ might have 300 entries, Z$(0) 
through ZS( 299), that can be easily read or 
changed. However, there's a problem. An 
array such as this is fine if the dala is fixed 



and never changes. In R*L*D*X, though, 
cards need to be reshuffled. Cards are pulled 

nut and changed, nr new cards are added. 

Each lime this is done, an array has to be 
reshuffled. 

Suppose a card is to be inserted belween 
twoexistingcardsalZ$(100)andZ$(101). 
All array elements after Zt(lOO) would 
have to be moved down to make room for 
the new card that replaces Z$(101). The 
same thing would happen on card deletes. 
All cards after the deleted card would have 
to be moved up lo fill the vacated spot. This 
movement of data takes an enormous amount 
of time and slows down the operation of the 
program considerably. Isn't ihere a more 
efficient way? 

One way around this problem of moving 
dala is to use a linked list. The following list 
is an example. Start with a list of names 
such as Jim. Bob. Mary. Grace. Tom. Son, 
and Carlos. Assign a number to each name 
as follows: 






Jim 


1 


Bob 


2 


Mary 


3 


Grace 


4 


Tom 


5 


Son 


6 


Carlos 



Now add a new entity called wpoinier to 
each name that represents the next name in 
alphabetized order. First add a Head of List 
poinier thai points to the first name in the 
alphabetized list: 



Head of List 





Jim 


1 


Bob 


2 


Mary 


3 


Grace 


4 


Tom 


5 


Son 


6 


Carlos 



This head of lisl pointer points to Bob. 
the first name in the alphabetized list. Now 
add a pointer lo each name that points (o the 
next name in the list: 

Head of List: I 






Jim 


2 


1 


Bob 


6 


2 


Mary 


5 


3 


Grace 





4 


Tom 


- 


5 


Son 


4 


6 


Carlos 


3 



Now we can scan the lisl by starling with 
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CoCo Stuff I 68030 QT K-System 1 6Mhz 



DynaStar 



THE Most Popular OS-9 
Word Processor! 

•It is an excellent word processor lor business and 
home use. whether lor clerical or programming worn. 
RAINBOW Review April 1989. Page 34. Also see 
July 1984, Page 220. 

DynaSlar word processor/formatter4S&ee 

SPECIAL ONLY 99.95 



DynaSpell 



by Dale Pucketl 

20 000 & 1 02.000 word dictionaries included. 

DynaSpell spelling checker 35.00 

SPECIAL WHEN PURCHASED WITH 

DynaStar 20.00 



The Wiz 



•The Wiz: Unquestionably one of the fin- 
est OS-9 terminal programs available.", 
"The Wiz has it all." 

List $79.95 

Now on SALE for ONLY $59.95! 

(Includes WlzPro shareware disk) 



Hard Drive Stuff 



■Frank Hogg Laboratories has been selling hard-drive 
systems longer than any other RAINBOW advertiser- 
Burke and Burke 



B&B XT PC style interlace 
B&BXTRTCw/clock 
B&B Real Tims Clock (add to kil price) 
B&B XT ROM Auto Boot Irom hard disk 
B&B Hyper I/O DECB on hard drive 
B&B Hyper III Ramdisk/spooler 
B&B Kits: 
20 Meg Kit 40 MS Complete 
30 Meg Kit 40 MS Complete 
40 Meg Kit 28 MS Complete 
Assemble fmt & lest any ol the above 

Th» Eliminator" 1 

The Eliminator" interface has 2 serial po its, 1 
parallel port and Real Time Clock socket. PLUS a 
Hard Disk Interlace 



69.95 
99.95 
30.00 
19.95 
29.95 
19.95 

496.00 

530.00 

675.00 

50.00 



The Eliminator" NEW PRICE 

WD1002-05 Hard/Floppy Controller 

Ellminatoi OPTIONS: 
Real Timo Clock chip 
Serial cable set (2 DB25) 
Parallel cable (Centronics) 
FIoddv Cable Int & Ext 

Ellminatoi Kits: 
20 Moq High Speed Kit 40 MS 
40 Moq High Speed Kit 28 MS 

70 Mog High Speod Kit 28 MS 

Assemble tmt & Test any ol the above 



Hard Drive Bits and Pieces 



Dual Hard Drive case W/60WP/S & Fan 89.95 
FBU Fast HD BackUp NOW ONLY 35.00 

R.S.B. RS Disk Basic under OS9 39.95 

Floppy Drives (5.25" and 3.5 FLOPPY DISKS) 
TEAC High Quality Drivr- - "— -— 
FD55B 360K 45 Track DS 5.25 



159.95 
199.35 

30.00 
30.00 
30.00 
25.00 

779.00 

939.00 

1299.00 

60.00 



Quality Drives - 1 Year Wan. 
,. Track DS 5.25" 99.00 

FD55F 720K 80 Track DS 5.25: 1 51 .00 

FD3SF720K80TrackDS3 5- 99.00 

(Bare drives, requires case and power supply) 



PC Keyboard Adaptor 



Use your standard PC keyboard or buy ours, either 
way you get a 'real' keyboard lor your CoCo. 



Bob Puppo's PC Keyboard adaptoi 
KI1 version with all parts 
Bars board, Docs & EPROM (no parts) 
PC 101 Key Keyboard with keycllck 



99.00 
80.00 
60.00 
70.00 



ANNOUNCING. 16Mhz 68030, 2 Megabytes RAM, 4 serial ports . 1 parallel port Full 
SCSI interface with 105Meg catching SCSI hard disk at 17MS access.720K Floppy 
IS Jffi Ctod5wSnm«. OS9/68K. FBU AND QCOM. 6 slots lor expanse. 

Complete with case, power supply and software. 4695.00. 
60 Meg Tape Backup add 595. 

16Mhz 68000 version of the above with 40 Meg drive 3595.00 

These are example prices, all systems are custom made to your specs. Call for a quote 
for your particular needs. 

The QT K-System is based in the 12 Slot K-BUS. This bus has the same power 
connections as used by PCs and is small enough to fit most clone PC cases. You can 
r S semble a system yourself a piece at a time and add to and upgrade as you see fit. 
bScI j£X with OSK can be assembied *^™-*%™ ^ * ^^ 
and more information. Ask for information on the OT20X and OTOOx also. 



K-BUS 

K-CPU-030 

K-CPU-68K/10 

K-CPU-68K/12 

K-CPU-68K/16 

K-ACIA 2 

K-ACIA 4 

K-TCMP 

K-PAR 

K-FDC 

K-SCSI 

K-DRAM-2M 

K-DRAM-0 

K-MEM-256K 

K-MEM-0K 

K-DMA 

K-MATH-0 

K-MATH-81 

K-PROTO 

K-BUSMON 

K-PCA PC BUS 



QT K-System Boards 

12 SLOT BUS (For the following cards) 

68030 CPU 16MHZ 

10 MHZ 68000 CPU BOARD 

12 MHZ 68000 CPU BOARD 

16 MHZ 68000 CPU BOARD 

2 Port Async Serial (68681 - DB25 connectors) 

4 Port Async Serial (68681 - RJ-45 Connectors) 

Timer, Battery RTC/RAM,Parallel Printer Port 

4 Port Parallel Interface (6821 ) 

Floppy Disk Controller (1772) 4 drives 

SCSI Controller (5380) 

2 MegaByte Dynamic Memory 80NS Chips 

2 MegaByte Dynamic Memory (no memory chips) 

256K Static RAM (fully populated) 

256K Static RAM or 27256 Type EPROM 

2 Channel DMA (68440) 

MATH Coprocessor less chip 

MATH Coprocessor with 68881 installed 

General Purpose Wirewrap 

Bus Monitor with LED's and Single Step Switch 

PC Bus adaptor includes 8 slot PC Bus and cable 

OS9/68K SOFTWARE PRODUCTS 



OS9/68000 Includes Editor, Assembler, Debugger, Scred 

BOOT-ROM SET Required for OS9/68K 

PC-DOS UTILITY Utility to Read/Write/Format PC-DOS under OS9 

DynaStar for OS9/68K 

SMART from Informix 

FBU Fast HD Backup (same as CoCo version) 

Send for complete list 



$189.95 
889.95 
189.95 
219.95 
269.95 
149.95 
249.95 
149.95 
149.95 
149.95 
149.95 
749.95 
299.95 
529.95 
89.95 

189.95 
89.95 

299.95 
59.95 

189.95 

299.95 



$300.00 

50.00 

99.95 

150.00 

1400.00 
50.00 



ORDERING INFORMATION 



VISA and M/C, check and C.O.D. Con- 
tential U.S. software shipping add $3.50 
Ground - $6.00 Two Day Air. Hardware 
add $11 ground - $22 Two Day Air. 
Please call lor Next Day Air costs and 
C.O.D. Foreign add 10% Shipping (Mini- 
mum $5 USD). NY residents please add 



V 



7% sales tax. Thank You 



Frank Hogg 
Laboratory, Inc. 

Since 1976 

204 Windemere Road 
Syracuse, NY 13205 

315/469-7364 24Hours 



> 



the Head of Lis! pointer and then finding 
the numbei or each consecutive entry in 
this order: 1 - 6 - 3 - - 2 - 5 - 4 to get Bob. 
Carlos. Grace. Jim. Mary. Son and Tom. 
The last entry. Tom. has no next entry and 
has a special - 1 pointer to mark this fact. 
Suppose we want to insert the new name 
Megan in the list. Since the list is unor- 
dered, we can just add it to the end: 

Head of List: I 



fashion. Suppose we wanted to delete Carlos. 
First, we scan the list to find Carlos anil the 
name just before Carlos. 






Jim 


2 


1 


Bob 


6 


2 


Mary 


5 


3 


Grace 





4 


Tom 


-1 


5 


Son 


4 


6 


Carlos 


3 


7 


Megan 





To reorder the list, the only thing that 
needs to be changed is the pointers. Search 
until the insertion point is found. 

Head of List: I 

Jim 2 

1 Bob 6 

2 Mary S 
(insert after Mary) 

3 Grace 

4 Tom - 1 

5 Son 4 
(insert before Son) 

6 Carlos 3 

7 Megan 

Next change the pointer associated with 
Mary (5) to 7. the location of Megan. Then 
move the 5 to the pointer associated with 
Megan. 

Head of List: 1 






Jim 


2 


1 


Bob 


6 


2 


Mary 


7 


3 


Grace 





4 


Tom 


-1 


5 


Son 


4 


6 


Carlos 


3 


7 


Megan 


5 



The strings for the names remain in 
place. The only thing needed to reorder the 
list is to scan the list to find the insertion 
point, then change one pointer and add a 
new pointer. The reason this scheme works 
so well on computers is that a list of point- 
ers can be scanned and changed very quickly 
— a great deal faster than moving entire 
character strings around. 

Deleting an entry works in a similar 



Head of List: 


1 





Jim 


2 


1 


Bob 


6 


(points to Carlos) 


2 


Mary 


7 


3 


Grace 





4 


Tom 


- 


5 


Son 


4 


6 


Carlos 


3 


7 


Megan 


5 



Now we can delete Carlos by changing 
the 6 pointer associated with Bob to the 3 
value found in the Carlos entry and putting 
a special flag with Carlos to indicate that it 
has been deleted: 



Head of List: 


1 





Jim 


2 


1 


Bob 


3 


(points to Grace) 


2 


Mary 


7 


3 


Grace 





4 


Tom 


-1 


5 


Son 


4 


6 


Carlos 


-2 


(deleted) 




7 


Megan 


5 



This is the scheme we use with 
R*L*D*X. but I've added a new kink. 
Since we want to go both forward and 
backwards in R*L*D*X we have two sets 
of pointers, one 
that goes forward 
through the list, 
and one that goes 
back through the 
list. That way we 
can easily go back 
without having to 
start from the be- 
ginning of the list 
to find the previ- 
ous card. 



program some thought and there's a better 
chance of success. Listing t bhows the final 
version. This version packs BASIC state- 
ments into each line to speed up execution, 
but this makes it harder to decipher. 

Card Storage 

Each card has up to 10 fields of data on 
it. with each field on a separate line. A field 
can contain from to 38 characters. You 
might use Field Ofora last name, Field I for 
a first name. Field 2 fora street address, and 
so forth. You can put any text you want in 
the fields. You determine the order of the 
cards in the file. 

Cards are stored in packed format in 
memory and in the ROLDATA.DAT disk file. 
(There is only one disk file of data, but you 
can easily expand R*L*D*X to include a 
file of any name.) Packed format concaten- 
tates the 10 fields together in one long 
string with a ! character used as a separator. 
AtypicalpackedentryisBarden ! Bi 1 1 ! Post 
Office Box 3568!Mission Viejo!CA!92692. 
The packed format is unpacked for screen 
display and editing. 

Packed strings are stored in the Z$ ar- 
ray, an array of 500 entries numbered 
through 499. String arrays are an efficient 
way to store data, as the strings can be vari- 
able sizes and there is no lost space at the 
ends of fields. There is a little overhead to 
hold data about the string name, size and so 
forth, but this is a small price to pay for the 
convenience of strings. 

Field Storage 

When cards are displayed on the screen 
for editing, the data on the cards is held in 



Implementing 
R*L*D*X 

Now that the 
memory and speed 
aspects are out of 
the way. R*L*D*X 
can be imple- 
mented. Of course. 
it still might be 
slow or hog mem- 
ory, but at least 
we've given the 



• Down arrow — Move forward one card at a time. 

• Up arrow — Move back one card at a time. 

• Left arrow — Move forward ten cards at a time. 

• Right arrow — Move back ten cards at a time. 

• P — Pull front card for re-sequencing or editing. 

• I — Insert pulled or new card before front card. 

• E — Edit a pulled or new card. 

• N — Display a new card and enter Edit mode. 

• D — Delete front card. 

• R (three times) — Read the ROLDATA.DAT file. 

• W Write the current file to ROLDATA.DAT. 

Edit mode — 

Up arrow — Move up one line. 

Down arrow — Move down one line. 

Right arrow — Move right one character position. 

Left arrow — Move left one character position. 

Text keys — Enter text. 

CLEAR — End Edit mode. 

Table 1: Kev Commands for R*L*D*X 
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an array called T$. This is a siring array of 
1 entries. T$ ( ) through T$ ( 9 ) . represent- 
ing the ten possible fields. Another similar 
array. F$. holds field data for the card dis- 
played on the right-hand side of the screen. 

Pointers 

Pointers to the entries in Z $ are kept in an 
integer array called P. Like Z$. it has 500 
entries. Both forward and backwards point- 
ers are maintained to save storage space. 
These are designated as the before and af- 
ter pointers, respectively. If before pointers 
are kept in one array and after pointers in a 
second array, the total storage is 500*5*2 
or 5000 bytes, since CoCo BASIC uses five 
bytes per numeric variable. By packing two 
pointers in one array entry, however. 2500 
bytes of storage are saved. Both the before 
and after pointers must be able to hold val- 
ues from to 499. The two pointers are 
packed by multiplying the after pointer by 
1024 and adding the before pointer. The 
result can be held in a single numeric entry. 
(The result is vahte*\024 + 499 with a 

maximum of 5 I 1 475.) The pointers are un- 
packed by obtaining the result of INK value/ 
1024) (after pointer value) and value- 
INT( va;ue/1024)*1024 (before pointer value). 
Pointer values of 1023 represent a no 
following or no preceding pointer just as 



- 1 represents those conditions in the linked 
list examples. 

Current Entry 

Variable P I is the pointer to the current 
entry, the card displayed in front on the 
screen. The Get Current Entry subroutine 
uses P I to find the value for the after pointer 
(PA) and the before pointer (PB). The sub- 
routine also returns the current packed string 
entry in Z$ by using PI. 

Deletions and Insertions 

Deletions and insertions work much the 
same as the linked list examples shown pre- 
viously. The current entry pointed to by P I 
is deleted by nulling out the string 
(Z$( PI )-""). Both the after and before point- 
ers replace the corresponding pointers in 
the previous and following pointers in Array 
P. The P entry for the deleted item is set to 
-2 (never used or deleted). An insert searches 
the P array to find the first entry with a -2 in- 
dicating that it is available. When found, its 
location is used as the pointer values for the 

two pointers thai bracket the insert point. 

The other pointers in the bracketing entries 
are also changed. 

Edit on Screen 

Editing can take place for both a new 



card and for a pulled card. The Edit mode 
reads the keyboard one character at a time. 
An arrow key causes the edit cursor to 
move up or down one line or one character 
position left or right. A text character is 
inserted on both the screen and in the T$ 
edit array at the same time. Pressing CLEAR 
ends the edit; the edited text is in T$(0) 
through T$(9). A subsequent insert stores 
the edited text in an inserted record. 

Reads and Writes 

Both the read and write functions use the 
same sequential file. R0LDATA.DAT. The 
Write first stores the head of list variable HD 
and then stores the 500 entries for the P and 
Z$ arrays. The Read operation reads the 
data in the same order, essentially initializ- 
ing a new file in memory. The ROLDATA.DAT 
file can be displayed or changed in many 
CoCo text editors. 

Summary 

R*L*D*X shows how you can emulate 
some real-world operations. Access time 

for any record is short, and tile program 

provides quick and easy editing of any card 
from the screen. Feel free to bend and 
hammer to shape if you are so inclined. 




XPort 



The Extended Port Interface O in II TO 
for the CoCo 1,2, or 3. ^ ^ 

Three buffered cartridge slots, 12 volts power, §p T4U95 
use RS232-hard/floppy controller & more! No need ~^^~ 



to replace your existing hardware! No need for new software. 
Slot switching to avoid ROM Conflicts, Introductory priced. 




TECnnDLOCIEE 



Telepak II.Truly compatible RS232 pak 
19,200 baud - uses standard Coco RS232 
addressing. Complete with cable. $49.95 



Double sided 1/2 Height Drives 

360 K 720 K ^Jf^SKS 
TEAC $89.95 $99.95 SSSSS 

Name Brand $79.95 $89.95 Triple-$15.00 



2400 baud modem & cable 

3 / 12 /2400 baud. Auto answer/ auto dial. OIllV 
AT command set. 2 year warranty. <£ -f ^ ft ft £ 
6 ft. cable . (specify 4-pin or DB25) Jpl^"."^ 



From Alpha Software Technologies 

Disk manager tree.... 29.95 OS9 L II BBS.. 29.95 

Multi-menu 19.95 Warp One 34.95 

Level U tools. 24.95 Presto Partner29.95 



UPDOS Coco III DOS 

HSAVE/HLOAD Graphics save. 
Easy to use M/L config. Auto 

boot Even OS9!!Only$24.95 



Turbo 512K RAM $89.95 
Premium 120 NS Ram chips! Complete 
with inst. Ram test, Ram disk &spooler. 
Ok board w/software $38.95 



4 pin - DB25 $12.95 

DB25m-m/m-f... $ 9.95 
Magnavox RGB. .$14. 95 
T-cables 2 slot... $27.95 



Vterm ..39.95-SuperComm.. $29.95 



Call 316-946-0440 



Orion TecfmoCogits T.O. 'Bo\.6319G "Wichita, %$ 67203 
All orders include $3.00 shpg/hdlg COD Additional f 3.00. 
All prices ILS-funds. Actual snipping costs outside 11 J. 
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32K Disk 
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The Listing: R*L*D*X 



100 
110 



R*L*D*X PROGRAM 

COPYRIGHT 1990 WILLIAM BAR 



DEN. JR. 

120 ' DATA DICTIONARY 

130 * AS-WORKING STRING 

140 • BS-WORKING STRING 

150 ' C-COLUMN FOR EDIT MODE 

160 ' FSO-FIELD ARRAY 

170 ' HD-HEAD OF LIST 

180 • I-WORKING INDEX 

190 ' J-WORKING INDEX 

200 - K-WORKING INDEX 

210 • MDS-MODE NAME 

220 ' NU-NUMBER OF ENTRIES 

230 * PO-POINTER ARRAY LINKS AH 

EAD AND BEHIND 

240 • PA-ENTRY AFTER CURRENT 

250 ' PB-ENTRY BEFORE CURRENT 

260 • PI-CURRENT ENTRY (ONE DISP 

LAYED COMPLETELY) 

270 ' PT-TEMPORARY POINTER 

280 • R-ROW FOR EDIT MODE 

290 " RC-REMOVE CARD. 1 IF CARD 

REMOVED 

300 • TS-FIELD ARRAY FOR EDIT MO 

DE 

310 

320 

330 

340 

350 

S 

360 CLEAR 10000 

370 HBUFF 1.6500 

380 HBUFF 2.680 

390 DIM Z$(499) 

400 DIM P(499) 

410 HSCREEN 4 



Tl-TEMPORARY VARIABLE 
T2-TEMPORARY VARIABLE 
T3-TEMP0RARY VARIABLE 
TL-TAIL OF LIST 
Z$()-STRING ARRAY FOR CARD 



420 HCLS 

430 HGET (321 . 88 ) - ( 639 . 167 ) .1 

440 HGET (321 . 72 ) - ( 639 . 79 ) .2 

450 NU-0 

460 PI-1023: PA-1023: PB-1023 
470 RC— 1 
480 MD$-"COMMAND" 
490 FOR 1-1 TO 499:P(D— 2:NEXT 
500 P(0)-1023*1024+1023: Z$(0)-" 
STARTING CARDIFIELD 1IFIELD 2!": 
HD-0: NU-1: TL-0 
510 PI-HD: GOSUB 1060: GOSUB 125 
0: GOSUB 1390 

520 MD$-"COMMAND": GOSUB 2710 
530 C$-INKEY$: IF C$-"" THEN GOT 
530 

540 IF C$<>"R" THEN GOTO 610 
550 MD$-"READ?": GOSUB 2710 
560 C$-INKEY$: IF CJ-"" THEN GOT 
560 ELSE IF C$<>"R" THEN GOTO 
610 

570 MD$-"READ??": GOSUB 2710 
580 C$-1NKEY$: IF C$-"" THEN GOT 
580 ELSE IF C$<>"R" THEN GOTO 
610 

590 MD$-"READ": GOSUB 2710 
600 GOSUB 2300: GOTO 520 
610 IF C$-"W" THEN MD$-"WRITE" : 
GOSUB 2710: GOSUB 2230: GOTO 520 
620 IF C$OCHR$(10) THEN GOTO 65 


630 GOSUB 1060: IF PA-1023 THEN 
PI-HD ELSE PI-PA 

640 GOSUB 1060: GOSUB 1390: GOTO 
520 
650 IF C$OCHR$(94) THEN GOTO 68 

660 GOSUB 1060: IF PB-1023 THEN 



THEN GOSUB 1830: G 



THEN GOSUB 1900: G 



THEN GOSUB 2120: G 



THEN GOSUB 2380: G 



PI-TL ELSE PI-PB 

670 GOSUB 1060: GOSUB 1390: GOTO 

520 
680 IF C$-"P" THEN GOSUB 1670: G 
OTO 520 
690 IF C$-"D 
OTO 520 
700 IF C$-"I 
OTO 520 
710 IF C$-"N 
OTO 520 
720 IF C$-"E 
OTO 520 

730 IF C$OCHR$(8) THEN GOTO 760 
740 FOR 1-1 TO 10: GOSUB 1060: I 
F PA-1023 THEN PI-HD ELSE PI-PA 
750 GOSUB 1060: NEXT: GOSUB 1390 
: GOTO 520 

760 IF C$OCHR$(9) THEN GOTO 790 
770 FOR 1-1 TO 10: GOSUB 1060: I 
F PB-1023 THEN PI-TL ELSE PI-PB 
780 GOSUB 1060: NEXT: GOSUB 1390 
: GOTO 520 
790 GOTO 520 
800 ' 

810 ' INSERT ENTRY 
820 FOR 1-0 TO 499: IF P(D— 2 T 
HEN GOTO 840 ELSE NEXT 
830 PI-1023: GOTO 930 
840 P(I)-PA*1024+PB 
850 IF PB-1023 THEN GOTO 870 
860 T1-P(PB)-INT(P(PB)/1024)*102 
4: P(PB)-I*1024+T1 
870 IF PA-1023 THEN GOTO 900 
880 T1-INT(P(PA)/1024): P(PA)-T1 
M024+I 

890 P(PA)-T1*1024+I 
900 Z$(I)-A$: NU-NU+1 
910 IF HD-1023 THEN HD-I 
920 PI— I : GOSUB 1060 
930 RETURN 
940 ' 

950 ' DELETE ENTRY 
960 PA-INT(P(PI)/1024): PB-P(PI) 
-PA*1024: P(PD— 2: NU-NU-1 
970 IF NU-0 THEN HD-1023 
980 Z$( PI )- — 
990 IF PB-1023 THEN GOTO 1010 

1000 T3-P(PB)-INT(P(PB)/1024)*10 
24: P(PB)-PA*1024+T3 

1010 IF PA-1023 THEN GOTO 1030 

1020 T3-INT(P(PA)/1024): P(PA)-T 
3*1024+PB 

1030 RETURN 

1040 • 

1050 • GET CURRENT ENTRY 

1060 IF PI-1023 THEN PA-1023: PB 
-1023: AS-"": GOTO 1080 

1070 A$-Z$(PI): PA-INT(P(PI)/102 

4): PB-P(PI)-PA*1024 

1080 RETURN 

1090 ' 

1100 • PACK STRING 

1110 A$-"" 

1120 FOR J-0 TO 9: A$-A$+F$( J)+" 

!": NEXT 

1130 RETURN 

1140 * 

1150 ' UNPACK STRING 

1160 B$-A$ 

1170 FOR J-0 TO 9: F$(J)-"": NEX 

T 

1180 FOR J-0 TO 9: K-INSTR(B$ . "! 
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Unlock The Real Power of Your CoCo 



BASIC USERS GET FULL CAPACITY AND POWER WITH THESE FAST 
MACHINE LANGUAGE PROGRAMS THAT RUN IN THE BACKGROUND! 



d I q R AS I C " Basic Users get fu " contro1 of 

coco 3's missing link managing all CoCo memory 

"Danosoft has a winner in Big Basic, and I would 
recommend It to anyone wanting to get the most out of 
a Color Computer 3." - Rainbow, Oct789. 

Now you can access up to 472K of memory in a 51 2K CoCo or up to 92K in 
a 1 28K machine with any mix of programs and/or data . At last, you can do 
sizable basic programming with a CoCo 3. 

BIG BASIC creates programming windows where you can put up to 58 
separate running programs, or up to 58 parts of one large program or 
database. Concept permits big programs to run fast. 
Chain in unlimited sized programs, or program parts, or data ,from disk(s) 
without erasing existing programming or variables. Also works with the RGB- 
DOS Hard Disk system and ADOS3. 
3 new simple basic words create the power. 
Vanable exchange between program windows provided. 
Modifies your basic operating system in some 70 locations but does not 
occupy user memory. 
Includes 7 Demo Programs and Manual. Any disk version RS-DOS. 

ONLY $39.95 U.S. or $46.50 CDN. + S & H 



"UTILITIES PACKAGE" 

ACCESS BOTH SIDES OF YOUR DRIVES 

"Must - have software for the disk user" 

• Rainbow, Nov. /89. 

"BIG DISK" • Makes computer see double-sided drives 

as one 360K (80tk) drive; 158 granules. 

"DOUBLE40" • Sets drives for 40 tracks each side. 

"CONVERT/DISK" • Formats 40 tracks on each side of a disk 
without disturbing the first 35. 
Doubles all your present storage. 

"QUIKDRIV/6MS" • Sets fast drive stepping rate. 
"QUIKDRIV/30M ■ Fast drive shut off. 
"SET FEED" • Sets line spacing for printouts. 

For any CoCo (at least 64K) with 1.1 or 2.1 Disk Extended Basic 
Only $1 7.95 U.S. or $20.85 CDN. + S & H. 



"MEMORY MASTER" 

OUR FAVORITE PROGRAMMING TOOL 

"Memory Master is a unique hacker's program 

offering about all you could ask for in a disk and 

memory utility." - Rainbow, SeptJ89. 

Scan, Edit, Copy, Printout any memory in your computer or on 
disk. Fix disks. Restore killed files. 

Fast entry of Ml. Listings. 

Dual Windows! Runs 2 Basic Programs at once! 

Disk chains unlimited amounts of program sections or data. 
Includes Demo Program and Manual. 
Any CoCo (at least 64K) with 1.1 or 2.1 Disk Extended Basic 
Only $24.95 U.S. or $28.95 CDN. + S & H. 



"BIG RAMDISK" (512kCoCo3V.2.0or V.2.1) 

■ Copy or backup your programs or data to "BIG RAMDISK and get the 

speed of program/data saving or loading to an "in memory" device. 

("COPYDISK" Utility included.) 

• Great for use with all other programs on this page and most 
commercial software. (Except "Simply Better") 

• You can install, re-install, format and reformat from direct mode or from 
a program without erasing programming or variables. It's in machine 
language, does not occupy user memory, but can be user located 
elsewhere if needed. 

• Your choice of one big 1 58 granule ramdisk (80 tracks-360k) or two 68 
or 78 granule ramdisks (35-40 tracks to 360k total), depending on your 
DOS. (i.e. RS-DOS, "BIG DISK", "DOUBLE40", etc.) Max 4 physical 
drives and 2 ramdisks. 

• Ramdisk files and directory do nol erase with a reset coldstarl (ALT/ 
CTRL), and are preserved if a program crashes. This lets you use some 
programs that need a Coldstart to exit. 



NOW FROM DANOSOFT! DALE RICKERT'S 
Feature Packed 



/^ 



ONLY $12.95 US or $14.95 CDN * S & H. 
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"Simply (Better" 



CoCo3's Best, Easy to use 

Word Processor 

With some Database Features 

hold a customer list of more than 5000 in memory for quick recall or editinq. 
"RUN 2 INTERACTIVE WORD PROCESSORS „ u . L „ y 

AT ONCE " MAIL-MERGE ' CREATE INDEXES An excellent choice at an unbelievable price." - Rainbow, April .1989 

/ TABLE OF CONTENTS • PRINT-FILL FORMS "Slaniflcantlv Better' Mais Qui' " - Rainhnw Fph 1QQO 

DISPLAYS FONTS IN COLORS • DISPLAYS UNDERLINING • PRINT »gnmcanny better. Mais OOI! Rainbow, Feb., 1990 

SPOOLING " AUTO SAVES * PRINT/SAVE BLOCKS OF TEXT ' TO Includes extensive, well indexed manual. 

48CK OF TEXT STORAGE ' SORTS TEXT ' NUMBERING ' 128k or 512kCoCo3 V.2.0or V.2.1 

CALCULATOR ' TASKS ' HEADERS ' FOOTERS ' PAGES ' FINDS ' ONLY $39 95 U S or £46 50 CDN + S & H 

PREVIEW "WYSIWYG". ETC. MUCH MORE. * H 



Need more info? See the Rainbow Reviews of these Programs. 

To any single shipment of one or more products add $250 S&H. Ontario Residents add 8% P.S.T. 



DANOSOFT 

Box 124, Station "A" 
Mississauga, Ontario L5A 2Z7 



10% Discount Order by Phone or Mail 

on purchase of (416) 897 _ 0121 

3 or more items ««.• 

at the same time. Shipped Airmail Same Day 




•■) 


OSUB 960: PI-PT: GOSUB 1060 


1190 IF K-0 THEN F$(J)-B$: GOTO 


1700 IF NU<6 THEN GOSUB 1250 


1220 


1710 GOSUB 1390: A$-T$: GOSUB 11 


1200 F$(J)-LEFT$(B$.K-1): BS-RIG 


60 


HT$(B$.LEN(B$)-K) 


1720 FOR J-0 TO 9: T$( J )-LEFT$( F 


1210 NEXT 


$(J)+STR1NG$(38." ").38): NEXT 


1220 RETURN 


1730 HLINE (1.40)-(319.40).PSET 


1230 ' 


1740 HLINE ( 1 . 152)- (319. 152) .PSE 


1240 • DISPLAY CARDS ON SCREEN 


T 


1250 IF NU-0 THEN GOTO 1360 


1750 HLINE (319.40) - (319. 152) .PS 


1260 HCLS 


ET 


1270 GOSUB 2710 


1760 HPUT (8.48)-(311.117).l.PSE 


1280 HLINE (0.0)- (639.191) .PSET. 


T 


B 


1770 HCIRCLE (100. 144). 6: HCIRCL 


1290 HLINE (321 .80) - (638. 191) .PS 


E (220. 144). 6 


ET.B 


1780 FOR J-0 TO 9: HPRINT (1.6+J 


1300 HCIRCLE (420. 184). 6: HCIRCL 


).T$(J): NEXT 


E (540. 184). 6 


1790 RC-1 


1310 IF NU>1 THEN HLINE (320.64) 


1800 RETURN 


(638. 191). PSET. 8 


1810 • 


1320 IF NU>2 THEN HLINE (320.48) 


1820 ' DELETE CARD 


-(638. 191). PSET. B 


1830 IF PI-1023 THEN GOTO 1870 


1330 IF NU>3 THEN HLINE (320.32) 


1840 GOSUB 1060: PT-PA: GOSUB 96 


-(638. 191). PSET. B 


0: PI-PT: GOSUB 1060 


1340 IF NU>4 THEN HLINE (320.16) 


1850 IF NU<6 THEN GOSUB 1250 


-(638. 191). PSET. B 


1860 GOSUB 1390 


1350 IF NU>5 THEN HLINE (320.0)- 


1870 RETURN 


(638. 191). PSET. B 


1880 • 


1360 RETURN 


1890 " INSERT CARD 


1370 • 


1900 IF RCOl THEN GOTO 2080 


1380 ' DISPLAY CARD TEXT 


1910 GOSUB 1060 


1390 Tl-PI 


1920 FOR 1-0 TO 9 


1400 HPUT (328.88)-(631.167).l.P 


1930 IF T$(I)-STRING$(38." " ) TH 


SET 


EN F$( I )-"": GOTO 1990 


1410 HPUT (328.72)-(631.79).2.PS 


1940 FB--1 


ET 


1950 FOR J-LEN(T$(I)) TO 1 STEP 


1420 HPUT (328.56)-(631.63).2.PS 


-1 


ET 


1960 IF MID$(T$( I) .J. 1 )<>" " AND 


1430 HPUT (328.40)-(631.47).2.PS 


FB--1 THEN FB-J 


ET 


1970 NEXT 


1440 HPUT (328.24)-(631.31).2.PS 


1980 F$(I)-LEFT$(T$(I).FB> 


ET 


1990 NEXT 


1450 HPUT (328.8)-(631.15).2.PSE 


2000 GOSUB 1110: PA-PI: GOSUB 82 


T 


0: GOSUB 1060: IF PB-1023 THEN H 


1460 GOSUB 1060 


D-PI 


1470 GOSUB 1160 


2010 GOSUB 1060: GOSUB 1250: GOS 


1480 FOR J-0 TO 9: HPRINT (41.11 


UB 1390 


+J). F$(J): NEXT 


2020 HLINE (1.40)-(319.40).PRESE 


1490 IF NU<2 THEN GOTO 1640 


T 


1500 IF PA-1023 THEN PI-HD: GOSU 


2030 HLINE (1 .152) - (319.152) .PRE 


B 1060 ELSE PI-PA: GOSUB 1060 


SET 


1510 HPRINT (41.9). LEFT$(A$.38) 


2040 HLINE (319.40) - (319. 152) . PR 


1520 IF NU<3 THEN GOTO 1640 


ESET 


1530 IF PA-1023 THEN PI-HD: GOSU 


2050 HCIRCLE ( 100. 144 ). 6.0: HCIR 


B 1060 ELSE PI-PA: GOSUB 1060 


CLE (220. 144). 6.0 


1540 HPRINT (41.7). LEFT$(A$.38) 


2060 HPUT (8.48)-(311.117).l.PSE 


1550 IF NU<4 THEN GOTO 1640 


T 


1560 IF PA-1023 THEN PI-HD: GOSU 


2070 RC— 1 


B 1060 ELSE PI-PA: GOSUB 1060 


2080 RETURN 


1570 HPRINT (41.5). LEFT$(A$. 38 


2090 • 


) 


2100 RETURN 


1580 IF NU<5 THEN GOTO 1640 


2110 ' NEW CARD 


1590 IF PA-1023 THEN PI-HD: GOSU 


2120 IF RC-1 THEN GOTO 2150 


B 1060 ELSE PI-PA: GOSUB 1060 


2130 FOR 1-0 TO 9: T$( I )-STRlNG$ 


1600 HPRINT (41.3). LEFT$(A$.38) 


(38." "): NEXT: GOSUB 1730 


1610 IF NU<6 THEN GOTO 1640 


2140 GOSUB 2380: RC-1 


1620 IF PA-1023 THEN PI-HD: GOSU 


2150 RETURN 


B 1060 ELSE PI-PA: GOSUB 1060 


2160 • 


1630 HPRINT (41.1). LEFT$(A$.38) 


2170 • EDIT MODE 


1640 PI-T1: RETURN 


2180 IF RCOl THEN GOTO 2200 


1650 • 


2190 GOSUB 2380 


1660 ' PULL CARD 


2200 RETURN 


1670 IF RC-1 THEN GOTO 1800 


2210 • 


1680 IF PI-1023 THEN GOTO 1800 


2220 " WRITE FILE 


1690 GOSUB 1060: PT-PA: T$-A$: G 


2230 OPEN "0". #1. "ROLDATA" 



2240 WR1TE//1. HD. NU. TL 

2250 FOR 1-0 TO 499: WRITE//1 . P( I 

).Z$(I): NEXT 

2260 CLOSE 

2270 RETURN 

2280 ' 

2290 ' READ FILE 

2300 OPEN "I", in. "ROLDATA" 

2310 INPUTtfl.HD. NU. TL 

2320 FOR 1-0 TO 499: INPUT#1.P(I 

).Z$(I): NEXT 

2330 PI-HD: GOSUB 1060 

2340 GOSUB 1250: GOSUB 1390: CLO 

SE 

2350 RETURN 

2360 • 

2370 ■ EDIT ON SCREEN 

2380 IF RCOl THEN GOTO 2510 

2390 R-6: C-l: MD$-"EDIT": GOSUB 

2710 
2400 GOSUB 2540: GOSUB 2630 
2410 IF C$-CHR$(10) THEN IF R-15 

THEN GOTO 2400 ELSE GOSUB 2580: 
R-R+l: GOTO 2400 
2420 IF C$-CHR$(94) THEN IF R-6 
THEN GOTO 2400 ELSE GOSUB 2580:R 
-R-l: GOTO 2400 

2430 IF C$-CHR$(9) THEN IF C-38 
THEN GOTO 2400 ELSE GOSUB 
2580:C-C+1: GOTO 2400 
2440 IF C$-CHR$(8) THEN IF C-l T 
HEN GOTO 2400 ELSE GOSUB 2580:C- 
C-l: GOTO 2400 

2450 IF C$-CHR$U3) THEN GOSUB 2 
580: IF R-15 THEN C-l: GOTO 2400 

ELSE R-R+l: C-l: GOTO 2400 
2460 IF C$<CHR$(32) THEN IF C$-C 
HR$(12) THEN GOTO 2510 
2470 GOSUB 2670: HPRINT (C.R). C 
$: MID$(T$(R-6).C.1)-C$ 
2480 C-C+l: IF C-39 THEN C-l: R- 
R+l 

2490 IF R-16 THEN R-15 
2500 GOTO 2400 
2510 RETURN 
2520 ' 

2530 ' CURSOR DISPLAY 
2540 HPRINT (C.R). CHR$(127) 
2550 RETURN 
2560 • 

2570 • CURSOR ERASE 
2580 GOSUB 2670 

2590 HPRINT (C. R) .MID$(T$(R-6) .C 
.1) 

2600 RETURN 
2610 • 

2620 • GET CHARACTER 
2630 C$-INKEY$: IF C$-"" THEN GO 
TO 2630 
2640 RETURN 
2650 ' 

2660 ' ERASE CP 

2670 HPUT (C*8.R*8)-((C*8)+7.(R* 
8)+7).l.PSET 
2680 RETURN 
2690 ' 

2700 ' TITLE 

2710 HPRINT (1.22)."R*L*0*X PROG 
RAM" 

2720 HPUT (144.176)-(318.183).l. 
PSET 

2730 HPRINT (18.22). MD$ 
2740 HPRINT (26.22). NU 
2750 HPRINT (30.22). "CARDS" 
2760 RETURN / ~ 



42 



THE RAINBOW April 1990 




Window Master V3.0 

Now you can have a User Friendly Point and 
Click operating system for your CoCo III with 
Windows, Icons, Buttons, Pull- Down Menus, Edit 
Fields and Mouse Functions built into your Basic 
or Machine Language Programs easily and 
quickly, without the need for OS9. 

Now Belter than ever, with built in Print 
Spooler and RS-232 support for the Serial port 
or Deluxe Pak. It supports up to 31 Windows on 
the display, multiple fonts in 54 possible sixes 
and styles, Enhanced Basic Editing and much 
more. It adds over 50 Commands and Functions 
to Basic to fully support the Point & Click 
Window System. In fact it has so many features 
it would take several pages to describe them all. 

It is completely compatible with existing Basic 
programs and takes absolutely no memory 
away from Basic. It requires 1 Disk Drive, R.S. 
Hi-Res Interface & Joystick or Mouse. Includes 
both the 128k & 512k versions for only $69.95 
Window Master owners call for free update! 

Window-Ware 

Window Writer - A Point & Click Word 
Processor, features both Mouse & Keyboard 
type editing, proportional printer support, 
powerful formatting capability, works with any 
printer. On screen Italic, bold etc. WYSIWYG 
Requires Window Master & 512k- S59.95 
Window Wriler/W - for non Window Master 
users. Requires 512K & Disk S79.95 
Window Basic Compiler - A Basic Compiler 
similar to CBASIC only it compiles all the 
Window Basic statements to create super fast 
M.L. programs & Desk Accessories. S99.00 
Window KPT/ASM - A full featured 
Editor/Assembler and Dcbuggeer. $49.95 
Window Conim - Terminal Communications with 
Xmodem file transfer, Split Screen and Serial I/O 
and Deluxe Pak support. S29.95 
I'oin/R-on Editors - A utility disk with the Font 
& Icon Editors so you can edit or create your 
own, includes Basic & M.L. versions S 19.95 
Advanced Programmers- Guide - A Guide for 
Basic & M.L. Programmers on interfacing to 
Window Masters complete system including 
System Calls, Memory Map, Interrupt handling 
& Extended Memory access. S24.95 
The Memory Game - A Concentration like game, 
lots of fun for everyone. $19.95 
L>csk Asffigflg Pah - Installs 6 resident D.A. 
programs, including: Font & Icon Editors, 
Function Keys, Terminal Program, Graphics 
Editor, and Calendar. S 39.95 

512K Only $109 

Give your COCO 3 all the power it deserves with 
this easy to install (no soldering/plug in) 100% 
Tandy compatible 512K memory upgrade. 
Completely assembled and tested. Includes 
Ramdisk & Memory Test software described 
below. $109 or 512K + Window Master $149 

512K RAMDISK & TESTER 

RAMDISK will give you 2 ULTRA High Speed 
Ram Disks in you CoCo-3. Plus you can run at 
double speed all the time even for disk access! 11 
It's Reset protected so it won't disappear like 
other ramdisk programs. The tester is a fast M L 
program to test the 512K ram. It performs 
several bit tests as well as an address test. 
Requires 512K & Disk $19.95 



CBASIC Editor/Compiler 

The ULTIMATE Color 
Computer BASIC COMPILER!!! 

If you want to write fast efficient machine 
language programs and you don't want to spend 
the next few years trying to learn how to write 
them in Assembly language or with a cheap 
compiler, then CBASIC is the answer! 1 1 

CBASIC is the only fully integrated Basic 
Compiler and Program Editing System available 
for the Color Computer. It will allow you to lake 
full advantage of all the capabilities available in 
your CoCo without having to spend years 
trying lo learn assembly language 
programming. CBASIC allows you to create, edii 
and convert programs from a language you arc 
already familiar wilh Enhanced Disk Color Basic, 
into fast efficient machine language programs 
easily and quickly. 

CBASIC supports all the enhanced hardware 
available in ihe CoCo 2 & 3, including Hi-Res 
Graphics, & Screen displays, Extended Memory 
and Interrupts. We even added advanced 
commands not available in Basic to give you a 
level of control only available lo very advanced 
Machine Language Programmers. Plus we made 
it exceplionally easy lo use, not like some other 
compilers. CBASIC is the friendliest and easiest 
compiler available for ihe Color Computer. 

CBASIC is a powerful tool for the Beginner as 
well as the Advanced Basic or Machine Language 
programmer. CBASIC features well over 150 
Compiled Basic Commands and Functions that 
fully support Disk Sequential and Direct access 
files, Tape, Printer and Screen I/O. It supports 
ALL ihe High and Low Resolution Graphics, 
Sound, Play and Siring Operations available in 
Enhanced Color Basic, including Graphics H/GET, 
H/Put, H/Play and II/DRAW, all wilh 99.9% 
symax compalibility. 

CBASIC makes full use of the powerful and 
flexible GIMI chip in the Color Computer 3. Il 
will fully utilize the 128K of RAM available and 
install 2 Ultra Fast Ramdisks if 512K is available, 
for program Creation, Editing and Compilation. 
You can easily access all 512K of memory in a 
Compiled program thru several extended 
memory commands lhal can access it in 32K or 
8K blocks and single or double bytes. 

CBASIC has its own completely integrated 
Basic Program Editor which allows you to load, 
edit or create programs for the compiler. Il is a 
full featured editor designed specifically for 
writing Basic programs. It has block move and 
copy, program renumbering, automatic line 
number generation, screen editing, printer 
control and much more. 

Specify Coco 1, 2 or 3 Disk $149.00 



To order products by mail, send check or 

money order for the amount of purchase, plus 

S4.00 for shipping & handling lo the address 

below. 
To order by VISA, MASTERCARD or COD call us 

at (702) 452-0632 
(Monday thru Saturday, 8am to 5pm PST). 

CER-COMP Ltd. 
5566 Ricochet Avenue 
Las Vegas, Nevada 89110 
702-452-0632 



DataPack III Plus VI. I 

SUPER SMART TERMINAL PROGRAM 

AUTOPILOTand AUTO-LOG Command Precision 

X-MODEM DIRECT DISK FILE TRANSFER 

VT-IOO A VT-S2 TERMINAL EMULATION 

• No lost data even it 2400 Baud on ihe Serial port. 

• 8 Selectable Display Formats, 32/40/64/80 columns 

• ASCII & BINARY disk file Iransfer via XMODEM. 

• Directly record receive daia (Dau Logging). 

• VT-IOO emulation for VAX. UNIX and other systems. 

• VT-100/52 cursor keys .position,, PF & All. Kbd. keys. 

■ Programmable Word Length, Parity, Slop Bits . 

■ Complele Full and Half Duplex operation, 

• Send full 128 character sci from Keyboard 

• Complcic Editor, Insert, Delete, Change or Add. 

• 9 Variable length, Programmable Macro Key buffers. 

• Programmable Printer rates from 110 lo 9600 Baud. 

■ Send Files from the Buffer, Nh.ru Keys or Disk. 

■ Display or Print ihe comenis of the 50k Buffer. 

• Freeze Display & Review information On line. 

• Built in Command Menu (Help) Display. 

• Buili in 2 Drive RAMDISK for 512K RAM. 

Also Supports: R. S. Modem-Pak & Deluxe RS-232 Pak. 

Specify Coco 1, 2 or 3 Disk • S59.9S 

"The SOURCE" 

DISASSEMBLER & SOURCE 
CODE GENERATOR 

The SOURCE will allow you to easily & quickly 
Disassemble Color Computer machine language 
programs Directly from Disk and generate 
beautiful, Assembler Source code. 

• Automatic label generation. 

• Allows specifying FCB, FDB and FCC areas. 

• Disassemble programs Directly from disk. 

• Automatically locales address. 

• Output listings to the Printer, Screen or both. 

• Generates Assembler source directly lo disk. 

• Buill in Hcx/Ascii dump/display. 

• 8 Selectable Display formats 32/40/64/80 . 
•Selectable Foreground & Background colors. 

■ Buill in Disk Directory an Kill file commands. 

• Menu display wilh single key commands. 

• Written in Ultra Fast Machine Language. 

Specify Coco 1, 2 or 3 Disk $49.95 

EDTIASM III 

DISK EDITOR ASSEMBLER 

EDT/ASM III is a Disk based co-resident Text 
Editor &. Assembler. It is designed to lake 
advantage of the new features available in the 
CoCo-3 wilh either 12SK or 512K of memory. 
It has 8 display formats from 32/40/64/80 
columns. There is also a free standing ML Debug 
Monitor. 

EDT/ASM 111 has ihe most powerful, easy louse 
Text Editor available in any Editor/Assembler 
package for the Color Computer. 

• Local and Global string search and/or replace. 

• Full Screen line editing . 

• Easy to use Single key editing commands. 

■ Load & Save standard ASCII formatted files. 

■ Block Move & Copy, Insert, Delete, Overtype. 

• Create and Edit files larger than memory. 
The Assembler features include: 

• Supports Conditional IF/THEN/ELSE assembly. 

• Supports Disk Library file up to 9 levels deep. 

• Supports standard Motorola directives. 

• Allows multiple values in FCB &FDBdireclives 

• Allows assembly from ihe Buffer, Disk or bolh. 

Specify Coco 1, 2 or 3 Disk $59.95 



A helpful program for those planning a career in business 



Predicting Profits 



by David Macias 



O 



n e 



of the 

needs of 
management is to 
understand the relationship among 
fixed costs, variable costs and the poten- 
tial for profit from an investment project. 
This is also known as break-even point 
analysis. When a business produces a prod- 
uct, some of its costs are fixed while others 
are variable. Sometimes a business must 
operate at a loss until a certain amount of 
sales is attained to cover both the fixed and 
variable costs. Thus the break-even point is 
achieved, and any additional sales go to- 
ward profits. The program presented here 
provides two methods for making break- 
even analyses. 

In the MAIN section a title is printed 
briefly on the screen. Then the MENU proce- 
dure is called to prompt you for the method 
you want for calculating the break-even 
point. A series of prompts asks you for the 
raw data needed in the break -even calcula- 
tions. If you make the mistake of entering 
a selling price lower than the unit variable 




David is attending Cerritos College where 
he studies business computer systems. He 
works as a computer operator in the data 
processing department and is a tutor for 
the music department in the MIDI lab. He 
is an advocate of the OS-9 operating sys- 
tem. He may be contacted at 1 1518 East 
Wimblex Court. Cerritos. CA 90701. 



cost, the 
program calls 
this to your atten- 
tion and asks for all 
the raw data over again. When it is en- 
tered correctly, the program returns to 
MAIN. Based on the method you chose, ei- 
ther the procedure METHODONE or METHODTWO 
is called. 

In the METHODONE procedure, calcula- 
tions are made based on the maximum 
production capacity of a production line. 
You are prompted for this amount, then the 
program calculates and prints the break- 
even point in terms of percentage of units 
produced and in actual sales. After you 
press ENTER to continue, the program builds 
a profit analysis table. (This is a valuable 
tool for predicting profit.) Pressing ENTER 
at this point allows you to determine profit 
based on a sales forecast. 

In the METHODTWO procedure you are 
prompted for the expected sales figure in 
terms of the number of units to be sold. 
Again the break-even point is calculated 
and shown on the screen. Also, the total 



profit 
(which can 
be a negative 
number) is calculated 
based on the expected sales. 
If you want to exit the program, type an up- 
percase N at the last prompt and press EN- 
TER. Anything else sends you back to the 
first decision menu. 

As for structure, I always try to use 
structured programming design. I managed 
to avoid GOTOs even though Microware's 
Pascal allows it. I prefer to use global 
variables when I can. In this program the 
compiler demands local variables for all 
the FOR loops. The use of descriptive vari- 
able names in the program makes it self- 
documenting, thereby minimizing the 
number of remark statements. Last, by using 
the built-in Shell command. I can have 
Pascal make use of all OS-9 windowing 
functions. If you plan to compile this pro- 
gram all the way to object code, remember 
to have the Pascal Support program in your 
CMDS directory. □ 

Ed note: This program requires OS-9 Pascal 
to execute. We realize not everyone has the 
Pascal compiler and we would like to see a 
similar BASIC09 version of the program. 



OS-9 Level II 51 2K 



The Listing: cost. pas 

PROGRAM C0ST( INPUT. OUTPUT): 
(* COST - VOLUME PROFIT ANALYSIS *) 
VAR REVENUES. FIXEDCOSTS. VARIABLECOSTS. 
TOTALCOST. INCOME. CAPACITY, 
BREAKEVEN. SALES. PRICE:REAL: 
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N. C, X. PAUSE. SW:INTEGER: 
RESPOND. ANSWER:CHAR; 

PROCEDURE METHODONE; 

VAR REMOVE: INTEGER; 

BEGIN 
X:-0; 

N:-SHELL( 'DISPLAY IB 22 01 14 0A IE 02 01 00'); 
WRITELN( 'MAXIMUM PRODUCTION CAPACITY?'); 
N.—SHELLt 'DISPLAY IB 22 01 34 0A 08 02 01 00'): 
READLN(CAPACITY); 

BREAKEVEN:- FIXEDCOSTS / ((PRICE - VAR1ABLECOSTS) * CAPACITY) 

31 01 0B 28 0A 00 02' ); 



N:-SHELL( 'DISPLAY IB 22 
WRITELN; 



BREAK EVEN POINT - '.(100 * BREAKEVEN) :1 :0. 

OF THE MAXIMUM PRODUCTION CAPACITY' ); 

OR '.(BREAKEVEN * CAPACITY) : 1 :0. ' UNITS'); 

CORRESPONDING TO SALES REVENUES'): 

OF $'. (BREAKEVEN * CAPACITY * PRICE) :4:2) ; 



■<PRESS ENTER TO CONTINUE>- 



'); 



35 18 02 03'): 



WRITELN( 
WRITELN( 
WRITELN( 
WRITELN( 
WRITELNt 
WRITELN: 
WRITELIK ' 
READLN(ANSWER): 
N:-SHELL( 'DISPLAY IB 22 01 0F 
WRITELN; 

WRITELNt ' COST - VOLUME - PROFIT ANALYSIS TABLE'); 

WRITELN: 
WRITELN: 
WRITELNt' 
WRITELNt' 
WRITELNt' 

WHILE (X < CAPACITY) 
BEGIN 

X:- X + TRUNC(CAPACITY / 10): 

REVENUES:- X * PRICE; 

TOTALCOST:- FIXEDCOSTS + X * VARIABLECOSTS; 

INCOME:- REVENUES - TOTALCOST; 



%'): 



UNITS 



SALES TOTAL COSTS 



DO 



— '): 

PROFIT'); 
'): 



J'.REVENUES:8:2.' $ ' .T0TALC0ST:8:2 . ' $'. 



<PRESS ENTER TO CONTINUE>- 



WRITELNtX.' 
INC0ME:8:2): 
END: 
WRITELNt ' 
WRITELN: 
WRITELN: 
WRITELNt' 
READLN(ANSWER): 
FOR REMOVE:- 1 TO 6 DO 
BEGIN 

N:-SHELL( 'DISPLAY IB 23'): 
END: 
END: 

PROCEDURE METHODTWO: f 

VAR REMOVE:INTEGER; 

BEGIN 

N:-SHELL( 'DISPLAY IB 22 01 14 0A IE 02 01 00'): 

WRITELN( 'EXPECTED SALES (IN UNITS)? '); 

N:-SHELL( 'DISPLAY IB 22 01 34 0A 08 02 01 00' ); 

READLN(SALES); 

BREAKEVEN:- FIXEDCOSTS / (PRICE - VARIABLECOSTS) 

N:-SHELL( 'DISPLAY IB 22 01 20 B 2D C 00 01'); 



'): 



'): 



WRITELN: 
WRITELN( 
WRITELNt 
WRITELN: 
WRITELN: 
WRITELNt 
WRITELNt 



BREAK-EVEN POINT -' ,BREAKEVEN:3:0. ' UNITS') 
OR $'.(BREAKEVEN*PRICE):3:2): 



TOTAL PROFIT - TOTAL REVENUE - TOTAL COSTS'): 
$'. (SALES * PRICE - (FIXEDCOSTS + 
(SALES * VARIABLECOSTS))):3:2.' - * . (SALES*PRICE) :3:2. 
(FIXEDCOSTS + SALES * VARIABLECOSTS) :3:2) ; 
WRITELN: 

WRITELNt ' <PRESS ENTER TO CONTINUED-- '); 

READLN(ANSWER): 
FOR REMOVE:-l TO 4 DO 
BEGIN 



SUPERSOUND 



Record music, voice or sound effects for 
your programs or even CM3 graphics with 
non-slop animation & sound effects in only 
1 28k. Even do a duel with yourself on two 
tracks The best & only multi-tasking sound 
system & easiest of ALL to usel ALL our 
features work with only 1 28k but can use to 
1 meg or more memory All sounds & 
variables saved on disk Easy BASIC demos 
help get you started. Supersound does what 
the others cannot! 
CoCo3. 1 28k, 1 disk $39.95 

SUPERSHOW 

Lets you create a slide show with sound & 
animation. Mix MGE & CM3 graphics. 
CoCo3, 128k, 1 disk $7.95 



SAY'IM'SPELL 



Let your CoCo3 help your children learn 
Their spelling words in YOUR own voice, 
recorded & saved on disk. Easy to use & 
makes homework fun Parent enters the 
words once & your CoCo will drill them all 
week, watch grades go up! Useable by 
children in 1 st grade & up. Includes cable to 
record from cassette Deduct $5 if you have 
SUPERSOUND cable. 
CoCo3, 128k, 1 disk. $19.95 



ULTRAED 



The BEST CoCo3 assembler/disassembler 
available. Two work buffers, online help file 
& true source code disassembly makes this 
utility a must for the serious programmer. 
Supports 80 col screen & full disk I/O. Re- 
quires EDTASM + can to make a working 
copy By Randel Reid. 
CoCo3. monitor, 1 28k. 1 disk $22.50 



COLOR GRAPHICS 



All of our graphics print drivers offer: True 
RGB to CMY color conversion for a real 
What-You-See-ls-What-You-Get print, even 
ALL 4096 colors of RASCAN pictures Offer 
ON-SCREEN color preview/editing. Rich col- 
ors with double the ribbon life Prints for use 
in a 5x7 and/or 8x10 picture frame Mirror 
prints that can be used for left/right pairs or 
make T-shirt transfers with proper L/R 
perspective. Partial screen printing for let- 
terheads. Drop in a black ribbon for perfect B 
& W prints of full color graphics pictures! 



RAS'MAX 



Now print 4096 RASCAN color pictures in 
Photo sharp FULL COLOR on a Star NX 1 000 
rainbow or compatible full color printer Also 
supports 1 6 color and B & W. RASCAN is 
not needed to print pictures. 
CoCo3, 1 28k, 1 disk, printer $19.95 



STAR*MAX 



Print CM3, MGE or HSCREEN2 pictures on 
STAR NX 1000 rainbow/compatible printer. 
Double-screen pictures for 8x10 frames. 
Even prints snapshot size in full color! 
CoCo3. 1 28k, 1 disk, printer $19.95 

STAR NX 1 000 4 color ribbon $ 9.95 

Heat Transfer 4 color ribbon $ 1 2.95 



CGP*MAX 



Print CM3, MGE. or HSCREEN2 pictures on 
CGP-220 or compatible, full color only! 
CoCo3. 1 28k, 1 disk, printer $14.95 



SUPERSOFT, IIMC 

363 Oakwood Ave.. Jackson. Ml 49203 
(517) 787 3610 $2.50 S/H per order 

Visn/M.C Chock, M.O., Ml ros odd 4% sales t.u 
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About 

Your 

Subscription 



Your copy of the rainbow is sent 
second class mail. You must notify us of 
a new address when you move. Notifica- 
tion should reach us no later than the 1 5th 
of the month prior to the month in which 
you change your address. Sorry, we can- 
not be responsible for sending another 
copy when you fail to notify us. 

Your mailing label also shows an ac- 
count number and the subscription expi- 
ration date. Please indicate this account 
number when renewing or correspond- 
ing with us. It will help us help you better 
and faster. 

For Canadian and other non-U. S. sub- 
scribers, there may be a mailing address 
shown that is different from our editorial 
office address. Send your correspondence 
to our editorial offices at Falsoft, Inc.. 
The Falsoft Building. P.O. Box 385. Pros- 
pect. KY 4005'). 




N:-SHELL( 'DISPLAY IB 23"): 
END; 
END: 

PROCEDURE MENU: 

VAR WAIT: INTEGER: 

BEGIN 

N:-SHELL( 'DISPLAY IB 22 01 0F 04 35 0D 01 01'): 
N:-SHELL( 'DISPLAY IB 22 01 0E 03 35 0D 02 03'): 
WRITELN: 



BREAK - EVEN POINT ANALYSIS'): 



WRITELN: 
WRITELNC 

WRITELNC 

WRITELN: 

WRITELN: 

WRITELN: 

WRITELNC 

WRITELN: 

WRITELNC 

WRITELN: 

WRITELNC ENTER 1 OR 2 AND HIT <ENTER>'); 

N:-SHELLCDISPLAY IB 22 01 37 0E 02 01 00 01'): 

READLN(C): 



BASED ON PRODUCTION CAPACITY (1)'); 



'); 



BASED ON SALES FORECASTS 



(2)'); 



-SHELLCDISPLAY IB 23'); 

-SHELLCDISPLAY IB 23'): 

-SHELLCDISPLAY IB 23'): 
IF (C > 2) THEN C:- 2: 
IF (C < 1) THEN C:- 1: 
WRITELN; 
WRITELN: 
REPEAT 

IF (SW - 0) THEN 
BEGIN 



TOTAL FIXED COST ?') 



UNIT VARIABLE COST ?' 



UNIT SELLING PRICE ?') 



N:-SHELLCDISPLAY 0C); 

WRITELN; 

WRITELN; 

WRITELNC 

WRITELN: 

WRITELNC 

WRITELN: 

WRITELNC 

SW:- 1: 
END; 
N:-SHELLCDISPLAY IB 22 01 28 02 08 06 01 00'): 
READLN(FIXEDCOSTS); 
WRITELN: 

READLN(VARIABLECOSTS): 
WRITELN; 
READLN(PRICE); 

IF (VARIABLECOSTS >- PRICE) THEN 
BEGIN 

N:-SHELL( 'DISPLAY IB 22 01 01 01 2A 06 01 01'); 

N:-SHELLCDISPLAY IB 22 01 02 02 28 04 00 03'); 

N:-SHELL( 'DISPLAY IF 24'): 



WRITELNC 
WRITELNC 



THE SELLING PRICE MUST BE'); 
GREATER THAN THE UNIT PRICE!'); 



FOR WAIT:-1 TO 15000 DO 
BEGIN 

(* PAUSE LOOP*) 
END; 
N:-SHELLCDISPLAY IF 25') 
N:-SHELLCDISPLAY IB 23') 
N:-SHELLCDISPLAY IB 23') 
N:-SHELLCDISPLAY IB 23') 
END; 
UNTIL (PRICE > VARIABLECOSTS): 
END: 

BEGIN (* MAIN *) 

SW:-0; 
RESP0ND:-'Y' ; 



-SHELLCDISPLAY IB 32 01 IB 33 00'): 
-SHELLCDISPLAY 05 20'): 
-SHELLCDISPLAY 0C>; 
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N:-SHELL( 'DISPLAY IB 


22 01 0F 04 35 09 01 01'); 




N:-SHELLCDISPLAY IB 


22 01 0E 03 35 09 02 03'); 




WRITELN: 






WRITELN: 






WRITELNC THIS IS THE COST-VOLUME ANALYSIS PROGRAM 1 ): 




WRITELNC 


PROGRAMMED by David Macias'); 




WRITELNC 


12-26-89'): 




FOR PAUSE :-l TO 18000 DO 




BEGIN 






(* LOOP DELAY *) 






END; 






N:-SHELL( -DISPLAY IB 


23'); 




N:-SHELL( 'DISPLAY IB 


23'); 




N:-SHELL('DISPLAY 05 


21'): 




REPEAT 






MENU; 






IF C- 1 THEN 






METHODONE 






ELSE 






METHODTWO; 






N:-SHELL( 'DISPLAY 


05 20'); 




N:=SHELL( 'DISPLAY 


IB 22 01 0A 02 20 07 00 01' ); 




WRITELN; 






WRITELNC DO YOU WISH TO DO AN ANALYSIS?'): 




WRITELN; 






WRITELNC ENTER N 


TO END OR PRESS ENTER'): 




WRITELNC TO CONTINUE'): 




READLN(RESPOND); 






N: -SHELL ('DISPLAY 


IB 23'); 




N:-SHELLCDISPLAY 


05 21'); 




UNTIL RESPOND- 'N'; 






N:-SHELLCDISPLAY 0C 


): 




END. 




/«\ 




Hew For OS-3 Level II 
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For BMP 

Com 

This ad 

this sc 

Use Bui 
To Make 



IWWR 



n , 

aphics Screens 
bcreer. Print Utility 
Types 1 and 2 Text 
Screens 

Command 
Line 
1 n voca t i on 

-165--130 and 
p a t i b 1 e s 

was written using 
reen dump package 

lt-In Power of OS-3 

V B u P Own Logos, 
nI*I-Hi A and Borders 
and Graphics 



ix I ex 
Using B a s i c 3 Programs 



Three Screen Dumps for the 
Introductory Price of $17 35 
<USfl Funds) Plus S8.H * 2.00 

Introductory Offer Good 
Until flay 1, 1330 

Send Money Order or Check 
(Checks should allow time 
to clear) 

G T T . D . Software 

P . Box 1 87 

Pablo, MT 53855 

Phone : 1-406-883-2306 <Eues > 




Lyra"...*, professional-quality, graphics-oriented, eight voice MIDI composition system for creating 
playable music MIDI data ... if you have a CoCo with at least 64K and a MIDI synthesizer, you must have 
Lyra."-Waltcr Myers, Rainbow review, November 1989. Comes with LyraPrint and a CoCo to MIDI cable. 
Everything you need to get started! Only S59.95 

Lyra Lyorary^ a collection of music for Lyra. "From Mozart and Beethoven to Irving Berlin and 
Henri Mancini to Phil Collins and Michael Jackson, there is a great deal of music here to explore and 
enjoy."-- Waller Myers, Rainbowt&Aew, December 1988. 18 disks (over 375 titles) for Si 25 or Si 4.95 per disk, 
0/-S2O.OO per disk, your choice of lilies. Send SASE for list of titles. 

ine Lyra GO/npan/On \% a 100 page book filled with everything you wanted to know about 
Lyra, "...nicely presented and contains a wealth of useful information for the Lyra user at any level of 
experience."-Walter Myers, Rainbowx&ivs*, November 1989. Just S9.95 

UOUO M/Dl 3 "...the only real-time interactive MIDI sequencer for the Color Computer CM3 
has more powerful features than you can shake a synthesizer at."- Jeffrey S. Parker, Rainbow, December 1989 
Works with any CoCo with 64K memory. Ask about our new enhanced CoCo 3 version! Requires MPI or 
Y-cable. S150.00 complete (program and required MIDI interface pak). 

HOt UOUOk a 50 minute professionally recorded audio tape of original compositions by CoCo artists. 
Four difterent performers bring you funky jazz, rock 'n roll, and classical styles. You'll love it! S9.95 
Ask about our synthesizer editor/librarians! 




Rulaford Research 

P.O. Box 530328 
San Diego, CA 92153 
(619) 690-3648 



Exclusive Australian Peripheral Developments 

distributor for P.O. Box 134. Springwood 
new Zealand (QJ) m 9m 
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THE RAINBOW is a teaching environment and we realize that the 
majority of our readers will always be beginners. In our continuing effort 
to always keep the new user in mind, and in addition to the many beginner 
feature articles and programs published in every issue. "Novices Niche" 
contains shorter BASIC program listings that entertain as well as help the 
new user gain expertise in all aspects of the Color Computer: graphics, 
music, games, utilities, education, programming, etc. 



Home Help 



Keeping a Tab on Your Tap 

by Roger E. Severs 



16K 
Extended 



This program can be used to figure per- 
sonal water bills or can be used as the core 
of a billing system for a small water com- 
pany. It was written on a CoCo but also runs 
on an MS-DOS computer under GWBASIC. 

Most small water companies start their 
computations with a fixed rate. In this 
example I set the Base (B) at 3000 gallons 
and the dollar amount for the base (0) at 
SI 6.50. Then R is the rate per gallon above 
the base, which in this example is .175 
cents per gallon, or SI. 75 per thousand 
gallons. Also. I set LC to . I for a 10 percent 
late charge. If your water company doesn't 
use a fixed base rate, set B and D to zero, and 
R and LC to the rales your company uses. 



The Listing: WATER 



' COPYRIGHT 1990 FALS0FT.INC 

10 "WATRBIL BY ROGER SEVERS 9/89 

20 B-3000 , BASE AMOUNT OF C0NSUMP 

T10N 

30 D-16. 5 'DOLLAR AMOUNT FOR BASE 

40 R-.00175'RATE PER GALLON 

50 LC-.l'LATE CHARGE RATE 

60 CLS 

70 INPUT" PREVIOUS READ1NG";P 

80 INPUT" PRESENT READING":PR 

90 C-PR-P:PRINT" CONSUMPTION" ;C 

100 CT-C+CT:IF C<B GOTO 120 

110 IF O-B GOTO 130 

120 FC-0:GOTO 140 

130 C-C-B:FC-C*R 

140 T-D+FC:PRINT" NET CHARGE IS 



";T 

150 PRINT" TOTAL CONSUMPTION IS 

":CT 

160 INPUT" IS THERE A LATE CHARG 

E Y/N";L$ 

170 IF L$-"Y" THEN 180 ELSE 60 

180 INPUT" ENTER LAST MONTH'S WA 

TER BILL ":LT 

190 FC-LT*LC:PRINT" 10% LATE CHA 

RGE IS ";FC 

200 INPUT" WAS LAST MONTH'S WATE 

R BILL PAID Y/N";M$ 

210 IF M$-"N" THEN 250 ELSE 220 

220 PRINT" TOTAL CHARGE IS ":T+F 



230 INPUT" 

NTER A";G$ 

240 IF G$-' 

END 

250 

260 



TO START A NEW BILL E 



A" THEN GOTO 60 ELSE 



INPUT" 



ENTER UNPAID BILL";U 
U-T+FC+U 
270 PRINT" TOTAL CHARGE IS":NT 
280 INPUT" TO START A NEW BILL E 
NTER A";G$ 
290 IF G$-"A" THEN 60 ELSE END 




Graphics r 



And Along Came a Spider 

by Joseph Pendell 




Spiders is a small graphics program thai 
requires a CoCo 3. It draws five spiders 
with different faces, which move down (he 
screen hanging by their webs. The spider 
that makes it to the bottom of the screen 
first is put in the center of the screen and 
turns many colors. To use the program, just 
type in and run the listing. 

The variable in Line 10 is the speed at 



which the spiders move down the screen. It 
can have a value between two and nine. The 
numbers in Line 30 are the colors of the 
CoCo's palette I chose for the spiders. The 
loop from Line 70 to Line 180 draws the 
five spiders and stores them in buffers to be 
put onto the screen later. Lines 200 through 
230 make the spiders move down the screen. 
The movement for the spider is to have it 



move down Q positions. Line 210. then 
have it move back up one position. Line 
220. This gives a bouncing effect. 

The Listing: SPIDERS 

' COPYRIGHT 1990 FALSOFT.INC 

1 'SPIDERS 

2 'BY JOSEPH PENDELL 

10 0-5: 'SPEED OF SPIDERS 

20 F0RI-1T05:HBUFF I.700:NEXTI 

30 DATA 0.47.25.61 

40 DATA"BM122.99:R2:BR2:R2:BR2:R 

2;BR2;R2","BM122.99;NUl;M+6,+l;R 

2 : M+6 . - 1 : Ul" . "BM124 . 100 : Ul : R8 : Dl 

:L8"."BM122.100:M+6.-l:R2:M+6.+l 
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"\"BM124.99:R8" 

50 FOR1-0TO3:READC:PALETTE I.C:N 

EXTI 

60 HSCREEN4 

70 F0RI-1T05:D(1)-RND(3):HDRAW"C 

"+STR$(D(D) 

80 HCIRCLE(128.96).15:"B0DY 

90 HDRAWBM140.91:M+15.-5:M+15.+ 

2:BM142.94:M+12.-3:M+15.+3:BM142 

.97;M+12.-2;M+15.+4;BM140.100;M+ 

15.-l;M+15.+5": 'RIGHT LEGS 

100 H0RAW"BM116.91:M-15.-5:M-15. 

+2;BM114.94;M-12.-3:M-15.+3;BM11 

4.97:M-12 1 -2:M-15,+4;BM116.100;M 



-15.1:M15.+5": 'LEFT LEGS 

110 HDRAW"BM124.94:NU1:NR1:NL1:N 

D1":"LEFT EYE 

120 HDRAW"BM131.94;NU1;NR1;NL1;N 

Dl": "RIGHT EYE 

130 HDRAW"BM128.96;D1": 'NOSE 

140 HDRAW"BM128.89:U13": , WEB 

150 READ M$:HDRAW M$: 'MOUTH 

160 HGET(85.76)-(172.105).l 

170 HCLS 

180 NEXTI 

190 FORI-1TO5:A(I)-0:HPUT((I-D* 

130. 0)-(( 1-11*130+88. 29). l.PSET: 

NEXTI 



200 I-RND(5):A(I)-A(I)+Q:IFA(I)> 

162 THEN 240 

210 HPUT((I-1)*130.A(I)+1)-((I-1 

)*130+88.A( I )+30). l.PSET 

220 HPUT((I-1)*130.A(I))-((I-D* 

130+88. A(I)+29). l.PSET 

230 GOTO200 

240 HCLS:HDRAW"C"+STR$(D(I))+"BM 

320.90:U90":HPUT(276.85)-(364.11 

4).I.PSET:FORK-1TO10:J-RND(63):F 

ORL-1 T04 : PALETTE L.J: PLAY"L255T2 

55CDEFGAB":NEXTL.K: PALETTE CMP:E 

ND 



Home Help 



What Is on the Agenda 
for Today? 

by Kerian Kenny 



A scratch pad for the things you have to 
remember can come in quite handy. Anemia 
helps you remember dates such as birth- 
days and appointments with the dentist. 
When you run the program, you see a menu 
with a pointer ">" positioned at the top 
choice ( LOAD). Use the up/down arrow keys 
to position the pointer next to the option of 
your choice and press ENTER. 

To enter your first reminder, choose 
ADD. Enter the date to be remembered in 
whatever form you like (e.g.. 2/3/90) and 
then enter the reminder. Enough space has 
been dimensioned and string space cleared 
for about 366 items of 60 characters in 
length (including the date). Items can be 
shorter or longer. The maximum length of 
an item is 249 characters less the length of 
the date entered. The screen position above 
the up-arrow is the limit. 

Long items will necessarily reduce the 
number of items you can enter, but some 
items will probably be very short and there 
will probably be enough days for which no 
entry is required. Consistent use of abbre- 
viations is recommended. You can use the 
same data for more than one entry. 

Reminders can be entered as they come, 
and date order is not required. You can 
neatly format your entry on the screen, but 
that will require entering more spaces and 
using more memory. As I said, it's a 
scratchpad. 

After each entry you are returned to the 
menu. Choose ADD for further entries until 
all your reminders have been entered. Then 
choose SAVE and give your file a name (e.g.. 
1990). 

If a disk drive is plugged in. your file 



32K 
Extended 



will be saved to or loaded from disk. Oth- 
erwise it will be saved or loaded to or from 
tape. The value D\M or DV-- 1 is established 
in Line 30. 

Next time you have a reminder to enter, 
load 1990. choose ADD on the menu, and 
enter your reminder as above. Then save 
the whole file again as 1990. 

If you want to find an entry, load 1990 
and select SEARCH. You can enter any string 
or part of a string you know to be in an 
entry. So if you want to check on your 
appointments with Dr. Pillpopper. type 
PILLPOPPER. and all files in which that 
name appears will be displayed on the 
screen in their order of entry. Most fre- 
quently you will want to enter the day's 
date (2/3). 

The Search routine is quite fast because 
the complete file is in memory. The high- 
speed poke is in effect except when you are 
actually savins or loading a file. Line 40 
establishes the poke values SP-65497 and 
SL-65496 if you are using a CoCo 3, or 
SP-65495 and SL-65494 if you are using a 
CoCo 1 or CoCo 2. If your CoCo will not 
take the high-speed poke, delete or omit 
Line 40 and the pokes in lines 1 60. 240. 470 
and 550. 

You might find the menu choice rou- 
tines starting in Line 60 useful foryour own 
programs. Type your choices as in lines 
1 70 through 2 1 0. The value of U P is one less 
than the print position of the fust option on 
the screen and the value of DN is one less 
than the position of the last option. If your 
first item is at print position 66, you can 
have up to thirteen choices on the screen — 
(UP-65andON-449). 



The Listing: AGENDA 

"AGENDA" by Keiran Kenny. 

Sydney. 1989. 

1 " COPYRIGHT 1990 FALS0FT.INC 
10 GOTO560 

20 DIMDYK366) 

30 1FPEEKUH15F)-196THENDV-1ELSE 
DV--1 

40 IFPEEKUHFFFE)*256+PEEK(&HFFF 
F)-&H8C1B THENSP-65497:SL-65496E 
LSESP-65495: SL-65494 
50 GOTO160 
60 Q-UP:PK-1 
70 PRINT@Q.CHR$(62): 
80 K$-INKEY$:IFKS-""THEN80 
90 IF0<UP THENQ-UP 
100 IFK$-CHR$(10)ANDQ-DN THEN140 
110 IFK$-CHR$U0)THENPRINT@Q.CHR 
$(143);:Q-Q+32:PK-PK+1:PRINT@Q.C 
HR$(62): 

120 IFK$-CHR$(94)ANDQ>65THENPRIN 
T@Q.CHR$(143)::Q-Q-32:PK-PK-1:PR 
INT@Q.CHR$(62): 
130 IFK$-CHR$(13)GOTO150 
140 GOTO80 
150 RETURN 

160 POKESP.0:CLS:PRINT"USE UP/DN 
ARRR0W:ENTER TO SELECT" 
170 UP-65:PRINTTAB(2)""L0AD AGEND 



B6B SUFirilMRE 

1637 Hanchett NH 

Grand Rapids HI t9504 



DISK [^IWL , , I ' 



□ KILLEHfiUm: Space strategy 
gane. Play by noden, null 
cable or solo >>$8.00<< 

D JOY: Learn how to tiake your 
oun low cost ATARI* joystick 
converter >>$6.00<< 

Q Hard copy available for-js^ 

RAINBOW 

D ARCADE FACTORY: You drau "' 
the characters and nake the 
rules >>$8.00<< 



Any tuo for >>>513.00<<< 

(016) 45 3-1011 AFTER 5:00 PM 



Hane : 



Address:. 
City/ST:. 
Zip:. 



Check or Honey order 
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180 PRINTTAB(2)"ADD ENTRIES" 

190 PRINTTAB(2)"SEARCH" 

200 PRINTTAB(2)"SAVE AGENDA" 

210 PRINTTAB(2)"END PROGRAM" 

220 DN-193:GOSUB60 

230 PRINTPK:ONPK GOTO240. 330.410 

.470.550 

240 POKESL.0:CLS:INPUT"LOAD AGEN 

DA NAME:":F$:IFDV— 1THENPRINT"P0 

S1TION TAPE. PRESS PLAY. PRESSAN 

Y KEY.":EXEC44539:GOTO260 

250 F$-F$+"/DAT" 

260 OPEN"I".//DV.F$ 

270 INPUT#DV.RN 

280 FORT-1TORN 

290 LINEINPUT#DV.DYS(T) 

300 NEXT 

310 CLOSE#DV 



320 GOTO160 

330 CLS:LINEINPUT"ENTER REMINDER 

DATE: ":DT$ 
340 CLS:PRINT"ENTER REMINDER FOR 

"+DT$ 
350 PRINT@249-LEN(DT$)+35." A " 
360 PRINT@32.""; 
370 RN-RN+1 
380 LINEINPUTRN$ 
390 DY$(RN)-DT$+": "+RN$ 
400 GOTO160 

410 CLS:LINEINPUT"SEARCH FOR: ": 
S$ 

420 CLS:FORT-lTORN:IFINSTR(l.DY$ 
(T).S$)THENPRINTDY$(T) 
430 F0RP-1386T01417 : I FPEEK(P)<>9 
6THENPRINTTAB(8)"PRESS ANY KEY." 
::EXEC44539:CLS:GOTO440ELSENEXTP 
440 NEXTT 



450 E$-"**END OF FILE "+CHR$(34) 

+S$+CHR$( 34 )+••**" :PRINTTAB( 16 -LE 

N(E$)/2)E$ 

460 PRINTTAB(2)"**F0R MENU. PRES 

S ANY KEY**"::EXEC44539:GOTO160 

470 POKESL.0:CLS:!NPUT"SAVE AGEN 

DA NAME": F$ : I FDV-- 1THENPRINT"PRE 

SS PLAY AND RECORD. PRESS ANYKEY 

.":EXEC44539 

480 OPEN"0".//DV.F$ 

490 PRINT#DV.RN 

500 FORT-1TORN 

510 PRINT#DV.DY$(T) 

520 NEXT 

530 CLOSE#DV 

540 GOTO160 

550 POKESL.0:CLS:END 

560 PMODE0:PCLEAR1:CLEAR24000:GO 

TO20 




Cutting Corners 

by John T. Wells 



Here is a familiar game consisting of a 
rectangle with a moving line inside it. which 
is controlled by the arrow keys. The object 
of the game is to keep the line moving as 
long as possible without the line intersect- 
ing or hitting the wall of a rectangle. The 
game is over when two lines intersect or 
you touch a wall. Your score is printed 
when the game is over. 




The Listing: CHASE 

' COPYRIGHT 1990 FALSOFT.INC 

1 POKE65497.0 

2 HSCREEN2:HCLS8 

3 HLINE(60.20)-(260.171).PSET.B 

4 HLINE(62.22)-(257.168).PSET.B 

5 HPAINTC61.21) .1.1 

6 X-160:Y-95:XX-160:YY-95:FL-1:I 
N-9:CT-0 

7 1N$-1NKEY$:1F IN$<>"" THEN IN- 
ASC(IN$) 



8 XX-X:YY-Y:IF IN-94 THEN Y-Y-l 
ELSEIF IN-10 THEN Y-Y+l ELSEIF I 
N-9 THEN X-X+l ELSEIF IN-8 THEN 
X-X-l 

9 IF FL-0 THEN IF HP0INT(X.Y)-1 
THEN 14 

10 FL-0 

11 HSET(X.Y.6):HSET(XX.YY.l) 

12 CT-CT+1 

13 G0T07 

14 HCOLOR2.8:HPR1NT(9.10)."THAT' 
S IT" 

15 HPRINT(9. 15). "SCORE IS ":HPRI 
NT(20.15).CT 

16 HPRINT(9. 20). "PRESS <ENTER> T 
END": LINE INPUT INS 

17 HC0L0R1.8 

18 POKE65496.0 

19 END 



Steady Aim Fire 

by Kathy Rumpel 

Bird Hum is a challenging shoot-'em- 
up game for the CoCo 3. A bird sits on a 
telephone wire and you control the BB gun 
at the bottom on the screen with the left and 
right arrow keys. To shoot at the bird, just 
press the up arrow key and a BB will be 
fired. If you hit the bird in the heart, it chirps 
and you receive 1(H) points and a new 
victim appears. If you miss, the bird flies 
away and another one arrives. Don"t take 
too long to aim because time will run out 
and the game will be over. Happy hunting! 

The Listing: BIRD 

' COPYRIGHT 1990 FALSOFT.INC 

1 'BIRDHUNT 

2 "KATHY RUMPEL 

3 'ROUTE 1 BOX 67-A 




4 'ARCADIA. WI 54612 

5 RGB:0N BRK GOTO 39 

6 POKE 65497. 0:SC-0:TlMER-0 

7 HSCREEN2:HCLS8:HC0L0R4.8 

8 HLINE(10.55)-(305.55).PSET 

9 A$-"S12R5F2D3GF3E3DRDRDL5G2L7H 
2U2EHU3E2BF2BD2FGHEBD2RFD2GL2HU2 
ERBH2LBR5R" 

10 B$-"S4R2BRR2BRB0L7DR7DL7BDBRR 
5BDBLL3BDBRR" 

11 C$-"U25E2R2F2D25L6" 

12 IF TIMERM900 THEN G0SUB39 

13 HO-150:VE-200 

14 HDRAWBM-HO: ,-VE;C6"+C$ 

15 H-RND(250):V-20 

16 IF H>250 THEN H-250 ELSE IF H 
<50 THEN H-50 

17 HDRAW"BM-H;.-V;C2"+A$ 

18 H-H+4:V-V+22 

19 HDRAW"BM-H:.-V:C3"+B$ 

20 I$-INKEY$:IF I$-"" THEN 20 

21 HDRAWBM-HO;. -VE:C8"+Ct 

22 IF I$-CHR$(8) THEN HO-HO-10 



23 IF 1S-CHRSC9) THEN HO-HO+10 

24 IF I$-CHR$(94) THEN GOSUB 31 

25 IF HO>300 THEN HO-300 

26 IF HO<10 THEN HO-10 

27 HDRAWBM-HO:. -VE:C6"+C$ 

28 GOTO 20 

29 HCOLOR4.8:HLINE(10.55)-(305.5 
5 ) . PSET : HDRAWBM-H ; .-V ; C8"+B$ 

30 GOTO 12 

31 FOR SH-VE-10 TO 35 STEP-35:HS 
ET(H0+5.SH.4) 

32 HLINE(10.55)-(305. 55). PRESET 

33 H-H-4:V-V-22 

34 HDRAWBM-H: ,-V:C8"+A$ 

35 H-H+4:V-V+22 

36 IF HP0INT(HO+5.SH)-8 THEN GOS 
UB 38 ELSE HSET(H0+5 . SH.8) :NEXT 

37 GOTO 29:G0T012 

38 HCLS8:PLAY"T25504DCAE":SC-SC+ 
100:HCOLOR4.8:HPRINT(12.1)."SCOR 
E:":HPRINT(20.1).SC:HCOLOR4.8:RE 
TURN 

39 F0RX-1T05:PLAY"T25504DCAE":NE 
XTX:HC0L0R3.8:HPRINT(9.15)."AN0T 
HER ROUND? (Y/N)" 

40 I$-INKEY$:IF 1$-"" THEN 40 

41 IF I$-"Y" THEN RUN ELSE P0KE6 
5496.0:CLS:END 
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Title Screen Splashdown 

by Paul L. Olmstead 



16K 
Extended 



Want to add a little animation to the lille 
screen of your basic program? Just type in 
and run FALLING. This short routine can be 
appended to any BASIC program and used 
as a title screen that clears a little bit differ- 
ently than Basic's CLS command. 

There are four lines you may use fortext 

or jimpliic*: characters on :i 3!? -column tevl 

screen. 

After you*ve typed in the short listing, 
save it to disk or tape. Then, type RUN and 
press ENTER. The title will appear. Press 
ENTER again and watch the title and its 
border fall apart into the water. Have fun 
and don't aet wet. 



The Listing: FALLING 

' COPYRIGHT 1990 FALSOFT.INC 



***************************** 

•** FALLING LETTERS ** 
'** BY PAUL OLMSTEAD ** 
•** AN ALTERNATIVE TO "CLS"** 
(C) 1990 FALSOFT. INC. 



•** (C) 1990 FALSOFT. INC. ** 
• **************************** 



L0 
12 

14 
16 

18 

20 

22 POKE &HFFD9.0 

24 DIM T(128) 

26 GOSUB 64 

28 CO-0 

30 Y-RND(128):X-T(Y) 

32 IF XO0 THEN C0-C0+1:G0T0 38 

34 IF C0O128 THEN 30 

36 POKE &HFFD8,0:END 

38 X-PEEK(1151+Y):T(Y)-0 

40 N-Y+1151: POKE N.223 

42 FOR M-l TO 11 

44 P-PEEK(N+32) 

46 POKE N+32.X 

48 IF N+32M471 AND N+32<1503 TH 

EN POKE N+31.175.P0KE N+33.175:X 

l-l:X-223 



50 IF Xl-1 THEN FOR D-l TO 4:NEX 

T D 

52 IF Xl-1 THEN X1-0-POKE N+31.2 

23-POKE N+33.223 

54 IF N+32>1535 THEN 62 

56 IF N+32M503 THEN POKE N+32.1 

75:P0KE N.175: FOR D-l TO 8:NEXT 

D:P0KE N.223 

58 POKE N+32.P-N-N+32 

60 NEXT M 

62 GOTO 34 

64 CLS6 

66 PRINT @128.STRING$(33.201): 

68 PRINT @161." FALLING LETTERS 

TITLE SCREEN ": 

70 PRINT @191.CHR$(201):CHR$(201 

) 

72 PRINT @197. "(C) 1990. FALSOFT 

INC.": 
74 PRINT @223.STRING$(33. 201): 
76 FOR L-1504 TO 1535:P0KE L.175 

•NEXT L 

78 PRINT 0329. "RESS ANY KEY.": 

80 EXEC &HADFB 

82 FOR L-1353 TO 1366:P0KE L.223 

:NEXT L 

84 FOR L-l TO 128:T( L)-99:NEXT L 

86 RETURN 



If 



I SI 




1811 hrU 43 bit, bitu, HI -Wt3 
((10I2-HU3 Itt((l()l24-tt2i 



CARD COLL EC HHt 

K «» track Of UOur c«rd rol lection »ttrt tt.it.. I>S9 Level ||, D raqr«n.. 

List to tt>e icrcpn or printer, by nil|. tri* or position. Edit. 
e.pm.d, or shrink file*- ONtv *<*.« - t;-.O0 s*M 

PAINTERS 

St*r rtitroniH NI-1000 R*inbow. 7 color printing, )<.<. CP * draft/36 
CP% M Q, 6.5fc Print buffer, 'pjht n*rlinq , I friction «nd tractor 
feed. Hi Re* graphics. ONIV *:-fa«.»0 • H2.C0 S&H 

noocfis 

Av*te. 12BO*. 3BB/I21M tr«,.s«l **i on tpttd. auto <Ji«|/*uto *n*wer. 8 
trout panel light*, two year manufacturer'* warranty. 

only * ee.ee • *3.tao s*m 

S-.-rTea» 34O0AT. 300/ 1 2BO/2-«.OB transmission speed, auto dial/auto 
an* w er, call proqre** detection, 6 *el* te*l i*odes. 8 indicator 
IioM*. AT cotnaiand *et , two year Manufacturer'* warranty. 

Ot*LV H7S.00 • *3.a© SftH 

Smart One 240BI, MM/ 1 ?OO/?*a0 transmission speed, auto dial/auto 
answer, 8 indicator lights, two year -anuf at tur er* warranty. Hayes 
compatible, made in the U.S.A. 

nNl V site. OB • *3.0B SfcH 
DISKS 

5 1/*- DSDD _,,„ 

3 1/2" DSDD 1,30 

5 I/*" DSHD , B0 M 

All diskm Please include »2.BB shipping and handling. 
DISK FILES 

5 I/*- Disk Holder, holds 7S } 1/** disks rMLV *B. 75 ea 

3 1/2- Disk Holder, holds *5 3 1/2" disls i-.nl> *7 5a ea 

b !/*" Locking Holder, hold* 75 5 1/** disl s, i.-rn you. disk* away 

from unauthorized user*. , ;iNL v %i?.*,q „., 

Copy Holder, .'top copy clip, non *V i d feet, detachable line guide. 

"nl« *12.95 ea 
DISK CLEANER KH5 

I ■£ *" ~~ ■■"'- «*»« 

A, . 0NLV » 6 - 50 ** 

All above Item* add 42.08 S&H. 
"■'■• Check or Money Order. No COD'* plea«e 

>*M««tt»»«MtH«H « M >« MW t«> a »»««*♦*♦«*« w ««»»|> 



* EXTENDED* 
ADOS-3 

• Built-in RAMdisk * Point-and-pick file select menu - 

Not a new version of ADOS-3 but a new product that shares space with ADOS-3 in 
a 16K EPROM Arrow-key selection of tiles to execute LOAD COPY KILL or 
SCAN The BACKUP command is doubled tn speed to r full disks proportionately 
faster for partly full disks (BACKUPS to or from the RAMdisk typically take 5 to 20 
sec ) • BACKUP-wilh-formal • Wild-card COPY and KILL, with optional prompting 
for individual files • Date (or datelime with hardware clock) displayed for files in 
the directory printed on LLISTings • DATES function • Key repeal • Block 
move copy of BASIC program lines • Text screen printer dump • Auto-reboot of a 
BASIC program or the DOS command • Parallel printing • Read'wnle'format 35 40 
tracks on 80-track drives • Supports 3 double-sided drives plus 2 RAMdnves • 
Allows different numbers of tracks on different drives • Shares Ihe original s excel- 
lent compatibility with commercial software For 128K CoCo 3 with ADOS-3 (RAM- 
disk use requires 512K) Includes information on having an EPROM burned (cost is 
S15> after configuring Extended ADOS-3 Disk S39.95. Extended ADOS-3 plus 
ADOS-3. $64.95. Driver for Disto real-lime clock $5. Adapter for controllers lacking 
28-pin socket. S10. SmartWatch real-time clock (Tandy 25-1033 equiv). $35 (Drivers 
for E»l ADOS-3 and OS-9 included usable in 28-ptn socketed controllers or in 
Rompack. S10). 



"...will blow your socks off. ..impossible to give Extended ADOS-3 
anything other than a r.v. r.vi.w.' _ „„,„„„„ 0ctober , 98 „ 

"Flawless, compatible operation with just about everything under 
the sun. ..by far the most USEFUL product ever devised for the 
Color Computer." _ CoCo CUpbo , rd _ Sepl/0c , 19e9 . 



ADOS-3 (reviewed July 1987) 

Customize default startup message, colors, screen width baud rate step rates 
processor speed number of tracks (35. 40. or 80) Disk I/O and printing are reliable at 
double CPU speed Extra commands such as FAST. SLOW. AUTO RUNM SCAN 
CAT PRT ON'OFF Keystroke macros, arrow-key scroll through BASIC programs 
edit' repeat of last command, ^uto-edil of error line. ML monitor, lots more Usable as 
a disk utility or in EPROM 128K Coco 3 EPROM-burnmg (cost is $15-20] informa- 
tion provided Disk $34.95. ADOS for CoCo I and 2 Disk $27 95 

FOR OS-9; SmprtWatcn real-time clock with driver $30.00: m Rompack $40.00. 

11111 N. Kendall Dr. 
Suite A108 
Miami. FL 33176 
(305) 274-3899 



SPECTROSYSTEMS 




PLEASE ADD $2 S DIPPING • NO DELAY ON PERSONAL CHECKS 
WE CANNOT ACCEPT CREDIT CARDS 
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Kissable OS-9 



A New Look for OS-9 



by Dale L. Puckett 

Contributing Editor 



This month. MVFinance brings 
Finance (March 1984. Page 298) 
into a new decade of mice and 
windows — just in time for the 
business issue. The OS-9 Spot- 
light features Eric Chrichlow's ShellMaic. 
a program that helps you manage OS-9 
tiles with ease. 

As you probably guessed from last 
month's column, we can expect to see some 
improvements in OS-9 Level II. The BAS- 
ICS tutorial code provided here shows how 
the new gf x2 routines make it much easier 
to write OS-9 windowing programs. When 
you compare the set-up code required by 
MVFinance to the same sequence from 
DoMenu in our November '88 column. 
you*ll notice it is only one-third the length 
of the original. The code is also much easier 
to read and understand. Do keep in mind, 
however, the code presented here will not 
run using the currently available gfx2 
module. 

Defining the Environment 

Many programmers often skip an essen- 
tial step when they begin a new project. 
They sit down at a keyboard and start 
entering code before planning the program. 
If the program is short, there's usually no 
problem. However, once the program grows 
beyond a page or two of code, they pay the 
price in frustration. 

I prefer to make decisions concerning 
program flow and determine the variables 
and constants I'll need before I start typing. 
This lets me use basicw's D I M statement to 



Dale L. Puckett. a freelance writer and 
programmer, serves as director-at-large 
of the OS-9 Users Group and is a member 
of the Computer Press Association. His 
ttsername on Delphi is DALEP: on packet- 
radio. KOllYD @ N4QQ: on GEnie. 
D.PUCKETT2: and on CIS. 7l44h.7.i6. 



OS-9 Level 



* 



The Listing: MVFinance 



PROCEDURE 

0000 

001C 

003D 

003E 

0052 

0061 

0070 

0087 

009D 

009E 

00AA 

00BD 

00CC 

00OB 

00EA 

00F9 

010E 

0123 

0138 

014D 

0169 

016A 

0178 

0187 

0196 

01AB 

01C0 

01C1 

01D0 

01DF 

01F4 

01F5 

0206 

0219 

022C 

0248 

0264 

0265 

0277 

028E 

02A1 

02C4 

02E0 

02E1 

02FC 

030B 

0320 

0321 



MVFinance 

(* Adding windows to Finance 

(* Copyright 1990 Dale L. Puckett 

(* Window type defs. 

DIM WT_NBox.WT_FWin.WT_FSWin: INTEGER 

DIM WT_SBox . WT_DBox . WT_PBpox : I NTEGER 

WT_NBox:-0 \WT_FWin :-$0301 \WT_FSWin:-$0302 

WT_SBox:-3 \WT_DBox:-4 \WT_PBox:-5 

(* Menu defs 

DIM MN_Move.MN_Clos.MN_Grow.MN_Uscrl : INTEGER 

DIM MN_ Dscrl .MN_Rscrl ,MN_Lscrl :INTEGER 

DIM MN_Tndy.MN_ Fi le.MN_Edit: INTEGER 

DIM MN_Styl .MN_Font.MN_Char: INTEGER 

DIM MN_Invest.MN_Deprec.MN_Loan: INTEGER 

MN_Move:-l \MN_Clos:-2 \MN_Grow:-3 

MN_Uscrl:-4 \MN_Dscrl :-5 \MN_Rscrl :-6 

MN_Lscrl :-7 \MN_Char:-8 \MN_Tndy:-20 

MN_File:-21 \MN_Ed1t:-22 \MN_Styl :-23 

MN_Font:-24 \MN_Invest :-33 \MN_Deprec:-34 \MN_Loan:-35 

(* Buffer defs 

DIM Grp_Font.Grp_Clip,Grp_Ptr: INTEGER 
DIM Grp_Pat2.Grp_Pat4.Grp_Pat6: INTEGER 
Grp_Font:-200 \Grp_Cl ip:-201 \Grp_Ptr:-202 
Grp_Pat2:-203 \Grp_Pat4:-204 \Grp_Pat6:-205 

(* Font Buffers 

DIM Fnt_S8x8.Fnt_S6x8.Fnt_G8x8: I NTEGER 

Fnt_S8x8:-l \Fnt_S6x8:-2 \Fnt_G8x8:-3 

(* Mouse Pointers 

DIM Ptr_Arr.Ptr_Pen.Ptr_Lch.Ptr_Sl p. -INTEGER 
DIM Ptr_I11 .Ptr_Txt.Ptr_Sch.Ptr_None:INTEGER 
Ptr_Arr:-l \Ptr_Pen:-2 \Ptr_Lch:-3 \Ptr_Slp:-4 
Ptr_lll:-5 \Ptr_Txt:-6 \Ptr_Sch:-7 \Ptr_None:-0 

(* Pattern Buffers 

DIM Pat_Sld.Pat_Dot.PatJ/rt.Pat_Hrz.Pat_Xhtc: INTEGER 

DIM Pat_Lsnt.Pat_Rsnt.Pat_Sdot.Pat_Bdot: INTEGER 

Pat_Sld:-0 \Pat_Dot:-l \Pat_Vrt:-2 \Pat_Hrz:-3 \Pat_Xhtc:-4 

Pat_Lsnt:-5 \Pat_Rsnt:-6 \Pat_Sdot:-7 \Pat_Bdot:-8 

(* Window regions for Mouse 

DIM WR_Cntnt.WR_Cntrl .WR_0fWi n : INTEGER 

WR_Cntnt:-0 \WR_Cntrl :-l \WR_0fWin:-2 

(* Data type to hold mouse packet 
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0342 
0361 
0362 
0373 
0382 
03B8 
03EA 
0422 
0423 
042E 
043C 
043D 
0476 
049B 
04A4 
04A5 
04B9 
04CC 
04EC 
04ED 
0501 
0514 
0515 
053D 
055D 
0576 



DIM valid, fire.mx, my .area, sx.sy: INTEGER 

(* Mouse settings 

DIM scan rate. timeout. follow: INTEGER 

scanrate:-3 \(* update rate (l/60th sec ticks) for the mouse 

timeout:-l \C* # ticks till packet goes into quite mode 

follow:-l \(* update cursor when mouse moves. - no follow. 

DIM ButtonDown.ButtonUp: INTEGER 
ButtonDown:-l \ButtonUp:-0 

(* Dim a variable to hold the 6809 stack during a SysCall 
TYPE registers-cc.a.b.dp:BYTE; x.y . u : INTEGER 
DIM stack: regi sters 

(* SysCall constants 

DIM I_Dup.I_Getstt.I_Setstt.F_Sleep:BYTE 

I_Dup:-$82 \I_Setstt:-$8E \I_Getstt :-J8D \F_S1 eep:-$0A 

DIM pathnum.oldpath(3).newpath:BYTE 

DIM key:STRING[l] \ DIM programname:STRING 

(* Dimension arrays for window and menus 
DIM Finwin(6):STRING \(* Window Descriptor 
DIM TanMen(8):STRlNG \(* Tandy Menu 
DIM FilMen(l):STRING \(* File Menu 



reserve memory and describe a program's 
environment for ihe reader — often it's me. 
six months later. When you write code this 
way. you can always refer back to the 
beginning of the program's listing to find 
the value of a constant or determine what a 
particular variable is being used for. 

Additionally, you'll find that once you 
have written a solid shell for one Multl-Vue 
program, you can use that code over and 
over again in many other programs, with 
only simple modifications. If you define 
often used constants, you can refer to them 
by name throughout the remainder of the 
coding. I dislike code that forces me to 
remember what an esoteric value like SCA 
will do for me. 

I reorganized the code that initializes the 
windows for MVFinaiwc to make it easier 
to read and understand. In DoMenu, 1 
grouped all the DIM statements together — 
more than 100 of them — and initialized all 
the variables. With this approach I had to 



f Move into the '90s with QISTD ^ (Pia®®!©^ J 



NOW AVAILABLE AT 
YOUR RADIO SHACK 
STORE PART # 90-2009 

UNDER OS-9: Buffered 
read/write sector achieved 
without halting the CPU 
means no loss of time or 
keyboard strokes. Mini 
Expansion Bus for 1 Super 
Add-On. One DOS 
included. $130 

G u py r C o i) <f) 1 1 y f II 

• Sockets for 4 DOSes 

• Mini Expansion Bus lor 
1 Super Add-On. 

• One DOS Included. $99 



Lowest Price Anywhere! 
Sockets for 2 DOSes 
Accepts 24/28 pin DOS 
One DOS Included. $75 



NEW! get U 

Of memory in your COCO 3 with DISTOs 

1 MEG Upgrade Kit. 

• Requires a 51 2K COCO 3 and soldering experience. 

• Kit includes 51 2K mem and all necessary hardware. 

• OS9 Drivers, by Kevin Darling, included. 

©mo? w© 

NEW ! From Rainbow's 
author, Tony DiStef ano: 

"A Full Turn 
of the Screw" 

The complete collection of 
"Turn of the Screw" articles 
from Jan '83 to Jul '89. $20 



Zero K Kit $159 



MEBII 

A carrier to plug in 1 

Super Add-On. Multi- 
PaK required. $35 

RS-232 PAK 

Compatable with RS 
Deluxe RS-232 Pak. 
DB-25 cable included. 
Multi-Pakrqd.$55 

RGB to MONO 

Monochrome video & 
Audio adapter. $35 



Super Add-Ons 

4IN1 Multi-Board Adapter 

Hard Disk, Real Time Clock 
Serial & Parallel Ports. Req. 
SC-lIorMEB-II.$l30 

3IN1 Multi-Board Adapter 

Real Time Clock, Serial & 
Parallel Printer Ports. $75 

RTC & Printer Interface 

Rtime & Parallel Port. $35 

MPROM Adapter 

EPROM Programmer. $55 

Hard Disk Adapter 

SCSIorSASI. No Multi-Pak 
needed it used with SC-1 or 
SC-II. RGB DOS and Hyper 
I/O supported. $40 

HDISK & RS-232 

Same as above but with 
RS-232 Serial Port. $70 

RS-232 Adapter 

A true Serial Port. $40 



SR-3* 51 2K Upgrade §®0 

Upgrades a COCO 3 to 512K memory. Ramdisk, printer 
spooler and memory test software included! Zero K $25 



CRC Inc. 



11 Boul. Des Laurentides, Laval, Quebec, Canada H7G 2S3 



1-514-967-0195 



Include S&H of $4 or $8 if order exceeds $70 MC/Visa Accepted Sorry: No personal cheques 
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058E 

05AC 

05CC 

05E4 

05E5 

05F0 

05FB 

0609 

060A 

0625 

0630 

0640 

0641 

065A 

065B 

0689 

06A8 

06BB 

06C6 

06C7 

06E7 

06F7 

06FD 

06FE 

072E 

0759 

0765 

0797 

079E 

07A0 

07AC 

07CE 

07D0 

07D1 

07E3 

080F 

083B 

083C 

085E 

087D 

0894 

0895 

08A8 

08D7 

08D8 

08F5 

0926 

0946 

0967 

098B 

09AE 

09D1 

09F1 

0A11 

0A32 

0A33 

0A63 

0A83 

0A84 

0ABC 

0AE6 

0B12 

0B3B 

0B3C 

0B75 

0B9C 

0BC4 

0BED 

0BEE 

0C1F 

0C4B 

0C73 

0C93 

0CB6 

0CDE 



DIM InvMen(3):STRING \(* Investment Menu 
DIM DepMen(3):STRING \(* Depredation Menu 
DIM LonMen(5):STRING \(* Loan Menu 

DIM menu_id.menu_1tem: INTEGER 
DIM Enable. Disable: INTEGER 
Enable:-1 \Disable:-0 

DIM stype. xsi z. yslz. fore. back. bord: INTEGER 
DIM window. wtype: INTEGER 
window:-WT_FSWin \wtype:-window 

DIM row. col : INTEGER \row:-0 \col :-0 

(* Dimmension variables for Finance procedures 
DIM in vest. deposit. rate. value. interest. period. years: REAL 
DIM pricepaid,pricesold.depreciation.salvagevalue:REAL 
DIM months. periods: INTEGER 

(* Operating Program starts here 
SHELL "tmode -pause" 
ON ERROR GOTO 9000 

(* Check for proper window type and size and fix 
RUN gf x2( "wi nf o". stype. xsi z.ysiz. fore. back. bord) 
IF stype<>7 THEN 

RUN gfx2("DWEnd") \RUN gfx2("DWSet".7.0.0.80.24.1 .0.2) 

xsiz:-80 
ENDIF 
IF xsiz<80 THEN 

RUN gfx2("DWSet".0.0.0.80.24.1.0) 
ENDIF 

(* Set up palettes 

RUN gfx2("Palette".0.$3F) \RUN gfx2("Palette".l .$0A) 

RUN gfx2("Palette".2.$00) \RUN gfx2("Palette".3.$lD) 

(* Turn on mouse, use arrow cursor 

RUN gfx2("SetMouse".scanrate.timeout.fol low) 

RUN gfx2("GCSet".Grp_Ptr.Ptr_Arr) 

(* Display Menu Bar 

RUN gfx2("T1t1e".Finwin."Multi-Vue Finance". 80. 24. 5) 

(* Set up each menu and items 

RUN gf x2 ( "Menu", Finwln.l. "Tandy ".MN_Tndy, 10. 8. TanMen. Enable) 
RUN gf x2( " I tern". TanMen. l."Calc". Disable) 
RUN gfx2(" I tern". TanMen, 2, "Clock". Disable) 
RUN gfx2(" I tern". TanMen. 3. "Calendar ".Disable) 
RUN gfx2(" I tern". TanMen. 4. "Control ".Disable) 
RUN gfx2(" I tern". TanMen. 5. "Printer". Disable) 
RUN gfx2(" Item". TanMen. 6. "Port". Disable) 
RUN gfx2(" I tern". TanMen. 7. "Help". Enable) 
RUN gfx2(" I tern". TanMen, 8. "Shell ".Enable) 

RUN gfx2("Menu".Finwin.2."File".MN_File.6.1.F11Men.Enable) 
RUN gf x2 (" I tern" . Fil Men. 1. "Quit ".Enable) 

RUN gfx2("Menu".Finwin.3."Investments".MN_Invest,18.3.InvMen.Enable) 
RUN gfx2("Item". InvMen.l ."One Investment". Enable) 
RUN gfx2("Item".InvMen. 2. "Regular Deposits". Enable) 
RUN gfx2("Item".InvMen. 3. "Desired Value". Enable) 

RUN gf x2( "Menu" , Fi nwi n . 4 . "Depreci a t1 on" . MN_Deprec .16.3. DepMen . Enabl e ) 
RUN gfx2("Item". DepMen. 1. "Annual Rate". Enable) 
RUN gfx2("Item". DepMen. 2. "Total Amount". Enable) 
RUN gfx2("Item". DepMen. 3. "Salvage Value". Enable) 

RUN gf x2( "Menu". F1 nwi n. 5. "Loans ",MN_Loan. 18. 5. LonMen. Enable) 

RUN gfx2("Item". LonMen, 1. "Regular Payments". Enable) 

RUN gfx2("Item". LonMen. 2. "Last Payment". Enable) 

RUN gfx2(" I tern". LonMen. 3. "Term". Enable) 

RUN gfx2(" I tern". LonMen. 4. "Balance". Enable) 

RUN gfx2("Item". LonMen. 5. "Cost of Loan". Enable) 



OS-9 

Spotlight: 

ShellMate 



ShellMate, the commercial ver- 
sion of Eric Crichlow's PD file 
management program was released 
by Hyper-Tech Software in Febru- 
ary. This point-and-click program is 
similar to the DiskMaster program 
on the Amiga. 

ShellMate is essential first fare for 
the OS-9 beginner and a productivity 
booster for old timers. It is one of the 
first commercial programs to fully 
use the Mulii-Vue windowing sys- 
tem and is both friendly and power- 
ful. Beginners will find it much eas- 
ier to copy or move files by pointing 
and clicking. Old timers will love the 
ability to select a large number of 
files and perform a given task on 
them with one click of the mouse 
button. However, you will need a 
minimum of 256K of memory in 
your CoCo 3 to use ShellMate. 

The package from Hyper-Tech. 
4341 Gannet Circle. No. 174. Las 
Vegas, NV 89103, also contains an 
AIF and icon file. The AIF file goes 
in your applications folder. The icon 
file should be moved into the /DD 
/CMDS/ICONS folder. YouTI need at 
least 40K of free memory when you 
run ShellMate. 

ShellMate divides your Color 
Computer screen into three sections: 
Overlay windows display both source 
and destination directories; all avail- 
able commands are listed in the cen- 
ter; and the standard Mtilti-Vitememi 
bar appears along the top of the screen. 
You stan by selecting a file or files in 
the source directory. You then per- 
form a command selected from the 
list in the center of the screen. If you 
are copying or moving a file, it is 
placed in the destination directory 
list on the right. While selecting, you 
can move down the directory tree by 
clicking on the name of a subdirec- 
tory (displayed in a different color 
than a standard file). To move back 
up the tree, click on the Parent button 
in the center. Other buttons let you 
select or clear all files in a directory. 
You can even create new directories 
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with the MakDir button. 

ShellMate has several bells and 
whistles that let you do much more 
than a standard file manager pro- 
viding only copy, delete, rename. 
1 ist and print serv ices. For example . 
additional ShellMate commands let 
you list files contained in a standard 
OS-9 archive file, dearchive those 
files, orcreate a new archive. To use 
these buttons the Ar module must be 
resident in your current execution 
directory. 

If you create or download a lot of 
VEF graphics files, you'll love Shell- 
Male. By pushing a single button 
after selecting a picture file, you can 
run VEFShow to display a picture. 
GIF pictures can be displayed with 
another button that runs the G I F0S9 
command. As with any excellent 
Mulli-Vue application, ShellMate 
gives you full access to all Desk 
Accessories under the Tandy menu. 
You'll find this new OS-9 applica- 
tion is well thought-out and useful 
— an excellent first release for Eric 
Crichlow. 3 
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(* Setup the window: Turn off text cursor first 

RUN gfx2("Cur0ff") \RUN gf x2("WnSet" .WT_FSWin. Finwin) 

RUN gfx2("Cur0n") 

(* Main Loop 

LOOP \(* Do this forever 
REPEAT 
RUN gfx2( "Mouse". valid. fire. mx. my) \ UNTIL fire-ButtonUp 

RUN gfx2("OnMouse".0) 

RUN gf x2( "Mouse". valid.fi re. mx. my. area. sx.sy) 

IF va1id<>0 AND fire-ButtonDown AND area-WR_Cntrl THEN 

GOSUB 1000 
ENDIF 
ENDL00P 

1000 RUN gfx2("GetSel".menu_id.menu_1tem) 

IF menu_id-MId_Gro THEN 

wtype: -window 

GOSUB 8000 

RETURN 
ENDIF 

IF menu_id-MId_Mov THEN 

wtype: -window 

GOSUB 8000 

RETURN 
ENDIF 

IF menu 1d-MN_Clos THEN GOTO 9010 \ ENDIF 
IF menu_id-MN_Tndy THEN GOSUB 2000 \ ENDIF 
IF menu_id-MN_File THEN 
IF menu item-1 THEN 



5££L. With Coco-Accountant 3 

If you're like most of us, keeping track of your finances is a hassle. Messy check- 
books, boxes full of old receipts, and panic at income tax time. But your Color Computer 3 
can turn you into a financial wizard if you have Coco-Accountant 3. 

This full-featured, home and small business accounting program answers the three 
big questions we all have about our money: Where did it come from? Where did it go? And 
what can I deduct from my income taxes? 

CoCo-Accountant is easy to use and menu-driven. Just set up a list of accounts and 
start entering your transactions. Checks, credit cards, cash, paycheck information, inter- 
est. In any order. Just toss it in and CoCo-Accountant sorts it out. Here's what Coco-Ac- 
countant will do: 

■ List and total transactions by account, for any month or the whole year. 

■ List and total transactions by payee or income source, for any month or whole year. 

■ List and total transactions by month, with income, expense and cash flow summaries. 

■ Quick year to date account and month summaries. 

■ Printed spreadsheet showing activity by account and month for the whole year! 

■ List and total tax-deductible expenditures and taxable income by account. 

■ Quick, easy checkbook reconciliation. ^^^^"T™"~ 
Coco-Accountant 3 will run on any CoCo 3 with a disk drive. And it's only $39.95. (We also have Coco- 
Accountant 2, with most of these features, for 64K Color Computers at $34.95). Send check, money order or 
credit card information to Federal Hill Software at the address below or call our Toil-Free Order Line at 
1-800-628-2828 Ext. 850. Order now and bring your finances into the Computer Age! 




Toll Free Orders 

1-800-628-2828 

Ext. 850 



Federal Hill Software 8134 Scotts Level Rd., Baltimore, Md. 21208 Info. 301-521-4886 
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leaf through several pages of code each 
time I wanted to determine which data type 
a variable contained. To make things eas- 
ier, this time I have grouped the DIM and 
initialization statements for like objects. 
You"ll find the window types, buffer defi- 
nitions and mouse pointers, etc.. together. 

Commands That Make It Possible 

Examine the code that sets up the win- 
dow and menu bar for MVFinance, and 
compare it to the same code in DoMemi. 



M, 



lulti-Vue is finally 
something the be- 
ginning BASIC09 
programmer can 
approach without 
fear. Three new gfx2 
commands make 
this possible. 



Mulii-Viw is finally something the beginning 
BASlCiw programmer can approach without 
fear. Three new gf x2 commands make this 
possible. For example, the following line 
sets up the title bar: 

run gfx2("T1tle".F1nWin."Multi-V 
ue Finance". 72. 20. 5) 

Likewise, a single line is required for 
each menu as well as each item under a 
menu: 

run gfx2(" Menu". FinW in. 1, "Tandy" 
.MN_Tndy.l0.8.TanMen.Enable) 
run gfx2("Item".TanMen.l."Calc". 
Disable) 

A major gfx2 enhancement makes it 
much easier to handle the mouse. Special 
long-winded data-typing statements are no 
longer needed. For example, this line ini- 
tializes the mouse: 

run gfx2("SetMouse". scan rate. tim 
eout. follow) 

To read the position and status of the 
mouse, you can use one of the following 
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GOTO 9010 
END1F 
ENDIF 

IF menu_1d-MN_Invest THEN GOSUB 3000 \ ENDIF 
IF menu_id-MN_Deprec THEN GOSUB 4000 \ ENDIF 
IF menu_id-MN_Loan THEN GOSUB 5000 \ ENDIF 
RETURN 

2000 (* Tandy Menu routines from DoMenu go here 
IF menu_item-7 THEN 
RUN gfx2("OWSet".1.50.8.30.8.3.2) 
RUN gfx2("wnSet",WT_DBox.Finwin) 
PRINT \ PRINT " Use DoMenu code" 
PRINT " from November. 1988" 
PRINT " Rainbow to run Items" 
PRINT " from Tandy Menu." 
FOR count:-l TO 7000 \NEXT count 
RUN gfx2("0WEnd") 
ELSE IF menu_1tem-8 THEN 

GOSUB 6000 \(* Open a window 
SHELL "" \(* Start a Shell 
RUN gfx2("0WEnd") 
ENDIF 
ENDIF 
RETURN 

3000 (* Investment Programs 
IF menu_item<>0 THEN 

ON menu_1tem GOSUB 3100.3200.3300 
ENDIF 
RETURN 

3100 (* Single Investment 

GOSUB 6000 \(* Open Window 

PRINT "Future Value of One-Time Ivestment" \ PRINT 

INPUT "Initial Investment? ".Invest 

INPUT "Nominal Interest Rate? ".rate 

INPUT "Term in Years. Months? ".years. months 

INPUT "Number of compounding periods/year? ".periods 

PRINT 

rate: -rate/periods/ 100 \years:-(12*years+months)/12 

value:-1nvest*(l+rate)''(periods*years) 

value:-INT(value*100+.5)/100 \in teres t:-val ue- invest 

GOSUB 6100 \(* Print report 

RETURN 

3200 (* Regular Deposits 

GOSUB 6000 \(* Open window 

PRINT "Future Value of Regular Deposits" \ PRINT 

INPUT "Amount of each deposit? ".deposit 

INPUT "Nominal interest rate? ".rate 

INPUT "Term of investment (Years. Months)? ".years. months 

INPUT "Number of deposits per year? ".periods 

rate:-rate/periods/100 \years:-(12*years+months)/12 

value:-deposit*((l+rate) A (periods*years)-l)/rate 

value:-INT(value*100+.5)/100 \invest:-deposit*years*periods 

interest: -value- invest 

GOSUB 6100 \(* Print report 

RETURN 

3300 (* Desired Value 

GOSUB 6000 \(* Open window 

PRINT "Required regular deposits" \ PRINT 

INPUT "Desired final amount? ".value 

INPUT "Nominal interest rate? ".rate 

INPUT "Length of investment (Years. Months )? ".years .months 

INPUT "Number of deposits each year? ".period 

rate:-rate/period/100 \years:-(12*years+months)/12 

deposit:-value*rate/((l+rate) A (period*years)-l) 

invest:-deposit*years*period \inte rest: -value -invest 

GOSUB 6100 \(* Print report 

RETURN 

4000 (* Depreciation Programs 
IF menu_1tem<>0 THEN 
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ON menu_1tem GOSUB 4100.4200.4300 
END1F 
RETURN 

4100 (* Annual Rate 

GOSUB 6000 \(* Open window 

PRINT "Depreciation Amount" \ PRINT 

INPUT "Original price of item? ".pricepaid 

INPUT "Selling price? ".pricesold 

INPUT "Depreciation term (Years .Months )? " .years .months 

years :-( 12*years+months )/12 

rate:-l-(pricesold/pricepaid)"(l /years) 

rate:-INT(rate*100+.5) 

PRINT CHR$(12) \(* clear screen 

PRINT "Depreciation rate (Percent): ": 

PRINT USING "T40.R12.2>".rate 

GOSUB 6200 \(* close 

RETURN 

4200 C* Total depreciation 

GOSUB 6000 \(* open window 

PRINT "Depreciation Amount" \ PRINT 

INPUT "Original price of item? ".pricepaid 

INPUT "Depreciation rate? ".rate 

INPUT "Year of depreciation? ".years 

rate:-rate/100 

depreciation:-pricepaid*rate*(l-rate)"(years-l) 

PRINT CHR$(12) \(* clear screen 

PRINT \ PRINT "Current depreciation: "j 

PRINT USING "T40.R12.2>". depreciation 

GOSUB 6200 \{* close 

RETURN 

4300 (* Salvage Value 

GOSUB 6000 \(* Open window 



lines. However, the second line does not 
tell you the horizontal and vertical size, the 
area of the screen or the location of the 
pointer. 

run gfx2( "Mouse". val id.fi re. mx.m 

y.area.sx.sy) 

run gfx2( "Mouse". val i d.f i re.mx.m 

y) 

While you are waiting for the user to 
click the mouse button, you can put the 
mouse to sleep and let other processes 
running in your Color Computer have more 
time by using this line: 

run gfx2( "OnMouse" ,0) 

Another gf x2 command that you're sure 
to love is Winfo, which lets you examine 
the type, size and colors in a window. 
Check the line I use to make sure 1 am 
running MVFinance in a window of the 
proper type. 

Subroutines and Forked Processes 

I used two separate approaches within 
MVFinance to illustrate two different solu- 
tions to the same problem. When a user 
clicks a mouse on a menu item, he is 



SPRING CLEANING SALE! 

NEW REDUCED PRICES 
TO CELEBRATE THE 90'S! 



TITLE 

BURIED BUXX 
MUTANT MINERS 
A DIAMOND 

IN THE ROUGH 
\AHTZZZ 
BURIED BUXX II* 
KILLER A's* 
MILESTONES* 
PICTURE PUZZLES* 
QUANTUM LEAP* 
REVENGE OF THE 

MUTANT MINERS* 
DISKEASE* 
FONTGEN* 

Prices good 
* = Color 



REGULAR SALE 

PRICE PRICE 

$19.95 $14.95 

$19.95 $14.95 

$19.95 $17.95 

$12.95 $9.95 

$24.95 $19.95 

$24.95 $19.95 

$19.95 $14.95 

$19.95 $14.95 

$19.95 $14.95 

$19.95 $14.95 

$19.95 $12.95 

$19.95 $14.95 

through June 30th. 

Computer 3 only. 



JR & JR SOFTSTUFF 

PO. BOX 118 • Lompoc, CA • 93438 • (805) 735-3889 
Maa-f»fCB«f Orders accepted 24 hours a day. VISA 



All programs on diskette only. 



All orders add $3.00 shipping. C.O.D. orders $4.00 additional 



SPECIAL DEAL ON 500 
PROGRAMS IS BACK! 



BACK BY POPULAR DEMAND! GET OUR LATEST 
50 DISKS OR TAPES FULL OF OVER 500 PROGRAMS! 
HERE IS WHAT YOU'LL RECEIVE: 

• Over 250 Utility/Home application Programs including a 
Word Processor, DataBase, Spreadsheet, Disk Utilities, 
Business Software, Electronics Series, Educational 
Programs for Kids, plus much more! 

• Over 200 Exciting Games (15 From Tom Mix), Including 
P51 Flight Simulator, SailorMan, The King, Family Feud, 
Air Attack, Moneyopoly, plus much more! 

• Over 30 Adventures, Including Martian Crypt, 
Rambo, Dracula, Plus 32K Graphic Adventures! 



Individual issues sell for $9.00 each or $450.00 for 
all 50. We lAS hED the price to only $ 150.00 ! 

REG. $450 isS$150. 00 



TURN TO 
PAGE 23 
FOR A LISTING 
OF OUR BACK 
ISSUES 



THIS MONTH ONLY 



Buy this package of 500 

programs and receive a FREE 

6 month subscription. 



RAINBOW 



T&D SOFTWARE • 2490 MILES STANDISH • 
• HOLLAND Ml 49424 • (616) 399-9648 • 
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essentially telling the computer to perform 
the task advertised under the menu bar. It is 
up to your program to make this possible. 

I used subroutines to run the tasks under 
the Investment and Depreciation menus. 
Items under the Loan menu are run by 
forking a task in a new window. The sub- 
routine approach is easy to follow. In fact 
two techniques can be used: The Invest- 
ment menu uses a decision tree, and the 
Depreciation menu uses an ON Menu_Item 
GOSUB 4100. 4200. 4300 statement. 

The Loan menu uses both the ON 
Menu_Itetn GOTO statement and forks a 
process in a new window. I needed the 
SysCall statements in the subroutine at 
90(H) to duplicate the input, output and 
errorpathsontheflyandtousetheF$Sleep 
system call. 

A new gf x2 command named WnSet is 
used to display a new window and menu 
bar. To bring up the MVFiiiancc window, 
use the statement: 

run gfx2("wnSet".WT_FSWin.FinWin) 

FinWin is the array that defines the 
window. WT_FSWin is an integer variable 
that actually contains two parts: The lower 
significant byte contains the window type, 
and the upper byte tells the system if the 
window can be either moved or resized or 
both. 

By combining this feature with a menu 
that forks a process in a new window, you 
can start more than two calculation subrou- 
tines going in two or more windows on the 
same screen. You can experiment when I 
present the four additional procedures for 
the Loan menu next month. 

That's it for April. I hope to have more 
information about OS- Level II on the 
Color Computer in May. 



1727 




PRINT "Salvage Value" \ PRINT 




173A 




INPUT "Original price of item? ".pricepaid 




175A 




INPUT "Depreciation term (Years. Months)? ".years, months 




1788 




INPUT "Depreciation rate? ".rate \rate:-rate/100 




17AF 




salvagevalue:-pricepaid*(l- rate) "years 




17C3 




PRINT CHR$(12) \(* clear screen 




17D7 




PRINT \ PRINT "Salvage value: ": 




17ED 




PRINT USING "T40.R12.2>".salvagevalue 




1800 




GOSUB 6200 \(* close 




180C 




RETURN 




180E 








180F 


5000 


(* The subroutine to Fork Loan programs 




1839 




(* as a separate processes appears next month 




1866 




RETURN 




1868 








1869 


6000 


RUN gfx2("OWSet".1.10.10.60.12.2.3) 




188E 




RUN gfx2("WnSet".WT_DBox,Finwin) 




18A5 




RUN gfx2("Select") \RUN gfx2("Cur0n") 




18C0 




RETURN 




18C2 








18C3 


6100 


PRINT CHR$(12) \ PRINT "Amount Invested: " : 




18E1 




PRINT USING "T40.R12.2>". invest 




18F4 




PRINT "Value of accumulated Interest: "; 




1918 




PRINT USING "T40.R12.2>". interest 




192B 




PRINT "Final Value of Your Investment: "; 




1950 




PRINT USING "T40.R12.2>". value 




1963 








1964 


6200 


(* close the window on mouse click 




1989 




PRINT 




198B 




PRINT "Click Mouse to continue!" 




19A7 




REPEAT 




19A9 




RUN gf x2 ( "Mouse". va 1 1d.fi re. mx. my) 




19CA 




UNTIL fire-1 




19D5 




RUN gfx2("0wend") 




19E2 




RETURN 




19E4 








19E5 


8000 


(* Display window after its been moved 




1A0E 




RUN gfx2("Cur0ff") \RUN gfx2( "WnSet" .wtype. Fi nwin) 




1A33 




RUN gfx2("Cur0n") \row:-0 \col:-0 




1A4E 




IF wtype-$0302 THEN 




1A5B 




RUN gfx2("SBar".col .row) 




1A71 




ENDIF 




1A73 




RUN gfx2("GCSet".Grp Ptr.Ptr Arr) 




1A8A 




RETURN 




1A8C 








1A8D 


9000 


(* All errors come here 




1AA7 




PRINT "Error-": ERR 




1AB3 




PAUSE 




1AB5 


9010 


SHELL "tmode echo" 




1AC6 




RUN gfx2("GCSet".Ptr None.Ptr None) 




1A0D 




RUN gfx2("Cur0n") 




IAEA 




END 


/R\ 







THE BEST COCO ASSEMBLY LANGUAGE PROGRAMMING BOOKS IN PRINT 





"Assembly Language Programming for the CoCo" (The Book) and the CoCo 3 (The Addendum). 
Professionally produced (not just skimpy technical specifications). THE CoCo reference books. 



THE BOOK - 289 pages of teaching 
assembly language for the CoCo 1 & 2. 
It's used as a school text and is an 
intro to Computer Science. It describes 
the 6809E instructions, subroutines, 
interrupts, stacks, programming 
philosophy, and many examples. Also 
covered are PIAs, VDG, SAM, kybd, 
jystk, sound, serial port, and using 
cassette and disk. $18.00 + $1.50 s/h. 



THE ADDENDUM Picks up 
where the BOOK left off. Describes 
ALL the CoCo 3 enhancements & how 
to use them with assembly language. 
The most complete GIME spec. 
WOW - Super-Res Graphics, 
Virtual Memory, New Interrupts, 
and more information not available 
elsewhere. Find out what the CoCo 3 
can really do. $12.00 + $1.00 s/h. 



COCO 3 SPECIAL 

Start your CoCo 
library right. 
See what the CoCo 
can really do and 
save money - buy 
the BOOK and 
ADDENDUM 
for only $27.00 + 
$2.00 s/h. 



US check or money 
order. RI orders 
add 6% sales tax 



TEPCO 

68 James Court 
Portsmouth, RI 02871 

See Us On DELPHI 
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CoCo Consultations 



Looking for Connectors 



by Marty Goodman. 

Contributing Editor 



Where i an I gel 34-pin female dual-row connectors for 3'/:-inch 
disk drives'.' Radio Shack just told me they don't carry 34-pin 
connectors. How can I net software to allow me to use more than 
35 tracks? Can this he done for CoCo Max 3? 

Michael F. Tromhley, Jr. 
Ware. Massachussetts 

Page 141 of the 1990 Radio Shack catalog indicates that Radio 
Shack does sell the proper 34-pin connector (Cat. No. 276-1525) 
for use with 3 l /:-ineh disk drives. The 276-1564 connector is the 
proper one to use with 5'4-inch drives. These items are not new and 
have been in the catalog for years. If you replace the original Disk 
ROM with ADOS burned into an EPROM (see ad in THE rain- 
bow), most disk-based programs will work with 40- and 80-track 
drives. CoCo Mas 3 may be an exception, however, because it does 
not go through the disk ROM for its disk access, and so a modified 
ROM does not affect its disk operation. 

Bruce Replies 

Several folks have asked me about using 80-track, TEAC 55F. 
5'A-inch floppy drives to read 40-track disks. Older versions of 
those drives (the ones with a single Tl 1922-00 flatpack chip 
surrounded hy 74LS-series. TTL DIP chips) can he set to double 
step (skip every other track when stepping) if you install RI4 (a 150 
ohm. '/i-watt resistor). When set in this fashion, they can reliably 
read disks written with 40-track drives. They can also format a 
disk in such a way that a 40-track drive can read the disk. However, 
it's not a good idea to try to use these drives to write to a disk that 
has been formatted on a true 40-track drive. A user can install a 
switch that hooks RI4 in and out to put the drives in normal- and 
double-step/40-track modes. 

Bruce Isted 

Calgary. Alberta 

Canada 

Thanks. Bruce, for the tip. Older TEAC 5'/>-inch 80-track drives 



Martin H. Goodman. M.D.. a physician trained in anesthesiology, 
is a longtime electronics tinkerer and outspoken commentator — 
SOtt of the Howard Cosell of the CoCo world. On Delphi. Marty- 
is the SIGop of RAINBOW'S CoCo SIG and database manager of 
OS-9 Online. His non-computer passions include running, moun- 
taineering and outdoor photography. Marty lives in San Pablo. 
California. 



are the only ones I know of that allow for such hardware-based 
double-stepcontrol. Of course, you can accomplish the same thing 
with proper driver software. Art Flexser incorporated this into 
ADOS3 and Extended ADOS3. Modifying the OS-9 device driver 
for Disk I/O to allow double-stepping should not be difficult. 

Atari Compatible? 

Can I use an Atari drive on my Color Computer? 

Bruce Bell 
Rockmart. Georgia 

Older 5'/4-inch drives used by the Atari 400, 800 and 130ST 
cannot be used on a Color Computer: the logic board on the drive 
mechanism is completely different than the IBM standard-type 
used by CoCo drives. However, the drive and logic board used by 
the Atari 520ST. 1040ST and their successors is standard and can 
be used with a Color Computer. These are double-sided. 80-track. 
3'/:-inch drives. Apart from setting the drive select properly and 
using proper cabling, you must also be careful to alter the termi- 
nating resistors when using an Atari 520ST-type drive on the 
CoCo, because the Atari ST systems use peculiar terminating 
resistances. 

How to Make Y 

How can I make a Y cable for my Color Computer's expansion 
port? 

Jocelyn Girard 
Quebec 

Y cables for the CoCo expansion port are made using Kell AM 
brand male and female IDC edge card connectors along with 40- 
conductor ribbon cable. These connectors cost S3 to $5 each, and 
they must be used with Kell AM female row-reversing connectors 
because their means of hooking to the ribbon cable is a mirror 
image of most ordinary female edge card connectors. 

The male connectors are tricky to crimp on the cable. If you 
don't have the special crimping die used for mass production, you 
must push each of the contacts in, one at a time, with a small nail 
after the usual crimping operation is done: otherwise unreliable 
contact results. This is why making such Y cables is usually 
outside the scope of the average do-it-yourselfer: it's better to get 
them from a RAINBOW advertiser. I don't readily recommend the 
use of such Y cables because they can cause unreliable system 
operation, especially with disk access. 

It is possible to make a male-to-male edge-card adaptor if you 
have access to double-sided printed circuit board fabrication 
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technology. Every trace must be run through the board on its way 
to the other edge-card connector. Such an adaptor can turn a Female 
40-pin FDC edge-card connector into a male, allowing its use with 
standard 40-pin female edge-card connectors. CRC/Disto used 
this trick to make an adaptor for 34-pin edge-card connectors used 
in disk drives. To my knowledge they have not made one for 40- 
pin edge card connectors. 

Tandy External on CoCo 

How do 1 use a Tandy external 3 1 /:- or 5'A-inch drive package 
designed for use with a 1000 EX or HX on a Color Computer? 

Dick Reitz 
Houston 

The external drives for the I OOOEX and HX are standard 5Va- and 
3'/4-inch drives that are compatible with the Color Computer. They 
are packaged in a plastic box without a power supply. Tandy uses 
a custom 30-pin cable that supplies power to the drive from the 
main computer. 

1 recommend opening up the box. discarding the Tandy cable 
and making your own ordinary 34-pin cable for use with the CoCo 
disk controller. You will also have to provide power to the drive 
(+5 and + 12 volts, regulated), then properly jumper and terminate 
your CoCo drive system. 

Need Modem to Fit Budget 

What kind of modem should I buy'.' I've been advised to 
purchase the DC Modem Pak and a Multi-Pak Interface, but these 
are too expensive. I have DeskMate. 

Tim Arview 
West Frankfort. Illinois 

I recommend purchasing a generic, external. 1 200-baud mo- 
dem, which should be available from computer mail-order houses 
for under $65. Such modems can be connected to the 4-pin serial 
port on the back of the CoCo3. When used with any of a number 
of shareware or commercial disk-based terminal programs 
(Delphiterm, Vterm. GregETerm), these modems allow you to 
download from any Color Computer bulletin board to your disk. 

DeskMate and other OS-9 software is another matter. OS-9 
software requires a hardware RS-232 pack and a Y cable or Multi- 
Pak Interface. RS-232 packs are available from Orion and CRC/ 
Disto (see ads in THE rainbow) and Multi-Pak substitutes are 
available from Orion and Howard Medical. 

Multi-Pak Interface Problem 

My Multi-Pak will not recognize the disk controller in Slot 4. 
and moving the selector switch to the slot occupied by an auto- 
execute ROM Pak causes the computer to crash. I have upgraded 
this Multi-Pak according to your instructions in the October 1988 
RAINBOW and have determined that the power supply is OK. I have 
not jostled the Multi-Pak or CoCo and have been using a Locking 
Plate from Gimmesoft to keep the CoCo and Multi-Pak together. 
My disk controller works fine when plugged directly into the 
CoCo. What suggestions can you offer? 

Leroy Guse 
Greenleaf. Wisconsin 

It would help to know what kind of Multi-Pak you have. I 
suggest using a schematic of the Multi-Pak and an oscilloscope to 
check for a bad chip on each address and data line on both sides of 
the buffer chips. Check the functioning of the CTS line since it is 
used in recognizing the disk ROM and ROM Paks. 



Also, type POKE &HFF40, 1 and see if the disk drive light on 
Drive (Iconics on. If it does, it means the SCS line is working. Both 
Multi-Paks use the same buffer circuitry on the address and data 
lines. The older Multi-Pak uses small-scale logic plus one small 
PAL chip to handle slot selection, where the new Multi-Pak uses 
a large, custom chip. The most common problem I've encountered 
with bad Multi-Paks is a blown address or data buffer chip. I've 
also seen the power supplies go bad. However. I've not seen a 
Multi-Pak with a dead PAL or custom-slot select chip, though I 
suppose it could happen. 

Act Like a Dragon 

How can I make my CoCo operate as if it were a Dragon 32/64 
< iimputcr? I want to run Dragon programs on my CoCo. I've tried 
to put my CoCo into f>4K mode and load Dragon BASIC into it. but 
it doesn't work. 

Edmund Sobtm 
Brampton. Ontario 

You're most likely wiping out the very code that allows the 
computer to use the tape recorder as you are using it! You need to 
load the Dragon BASIC into lower memory and use a program 
written in assembly language that turns off the interrupts and 
moves that code into upper memory where you want it. I'm still not 
sure the result will be an environment in which Dragon software 
will run on the CoCo. but it's worth a try. The old Dragon computer 
was very similar to the CoCo I. but featured a built-in hardware 
serial port and a clever addition to the keyboard circuitry that 
created a parallel printer port. 

Creating Variables 

Page 16 of the CoCo 3 manual states "You can use any two 
characters from A to Z for a variable." Why can I not use FN for 
FN$ as a variable? Are there any other combinations I cannot use? 

Charles Gibson 
Edwardsville. Illinois 

The CoCo 3 manual does have some errors. You cannot use, as 
a variable, any name whose first two letters are the same as the first 
two letters of an official BASIC function such as I F. ASCI I. FN. etc. 
BASIC recognizes functions by the first two letters of the function 
name. 

Lockups in CoCo Max 3 

My CoCo 3 locks up whenever I use the Set Colors or the Cycle 
Colors options in CoCo Max 3. It also seems to have problems with 
other ML software. Do you have any idea what the problem is? 

Gary Hough 
Stephens City. Virginia 

My best guess is that you have a problem with your GIME chip. 
You might want to order a new one from National Parts ($25) and 
see if replacing the old one fixes the problem. 



CoCo With a Mind of Its Own 

Since I upgraded my CoCo 3 to 5I2K. some of the graphics 
screens don't work properly. When I use low-resolution PMODE 
screens, a few pixels are set randomly even when the picture is 
cleared. Sometimes my computer locks up entirely or the disk drive 
motors turn on spontaneously. What do you think is wrong? 

Brian O'Neil 
Kirkland. Washington 
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First I suggest downgrading to I28K to see if the problem 
persists. If" it does. I"d say you have a damaged GIME chip and/or 
even a bad 68B09E. If the problem goes away, it seems the 
problem is due to bad DRAM on the 5 1 2K upgrade board. Test this 
by replacing the sixteen 256K DRAMs with new chips or by 
replacing, one at a time, each 256K DRAM on that board with a 
good DRAM. 

256K-by- 1 1 20 ns or faster DRAMs are inexpensive. Pricing is 
down to $2.50 or less per chip. Because I don"t know the results 
of your test after downgrading. I assume that either you have one 
or more bad DRAMs on the 512K upgrade board, or there is a cold 
solder joint on the upgrade board. You might want to reflow all 
solder joints on that board. Other possibilities include a bad 
contact between the 512K upgrade board and the sockets on the 
CoCo 3. including that due to a cold solder joint between the CoCo 
3 board and those 512K memory upgrade sockets. I assume, of 
course, that you properly installed your 512K board and cut the 
indicated capacitors and/or added the required resistor. 




The Label Designer is simply the 
most powerful, flexible, and 
easiest-lo-usc label program ever 
written for the CoCo. 

• complete graphics user interface 

• serial numbering • mail-merge 
automatic disk-directories 



ROLODEX CARD 

Label Designer disk & 64 page manual $29.95 

Assortment of different size and color labels $5.00 



Printer Shopper 

What sort of color and black-and-white printers do you recom- 
mend for the Color Computer? What kind of interface do you 
recommend for use with I hem? 

Leslie Morgan 
Bryant. Alabama 

Formost CoCo users, I recommend a low- to medium-priced 9- 
pin dot matrix printer. Values in the % 1 50 to S250 price range can 
be found with the Panasonic KX-PI 180 and KX-P1 190 series of 
printers, as well as the Star NX- 1 000 printers. These printers offer 
decent, near-letter-quality printing, relatively fast draft print speed 
and a proven record of reliability. Each comes with tractors, 
usually push tractors that offer more flexible paper handling. 
Epson also sells a decent printer in this price range. 

These printers support the Epson standard for graphics codes 
and should work with most CoCo graphics programs. The NX- 
1000 also comes in a color-ribbon-capable version. I advise 
against using a color printer unless you have a very specific 
application for it and have ascertained that the program you are 
using supports that printer. I must admit I have seen some nice 
results with CoCo Max 3 and Color Max using color printers. 

Among the more expensive 24-pin printers. I find the Panasonic 
KX-P 1 1 24 to be an excellent value, although the layout of its front 
panel controls is confusing. It sells for about S300 from mail-order 
outlets. 24-pin printers offer much greater speed and near-letter- 
quality printing. The delicate print-head, however, is more vulner- 
able to accidents such as snagging a pin in the ribbon and ruining 
the head. Replacement heads tend to cost $150 or more. 

Your technical questions are welcomed. Please address them 
to CoCo Consultations. THE RAINBOW, P. O. Box 385. Pros- 
pect, KY 40059. 

We reserve the right to publish only questions of general 
interest and to edit for brevity and clarity. Due to the large 
volume of mail we receive, we are unable to answer letters 
individually. 

Questions can also be sent to Marty through the Delphi CoCo 
SIG. From the CoCo SIG> prompt, pick Rainbow Magazine 
Services. Then at the RAINBOW> prompt , type ASK (for Ask 
the ExperLs) to arrive at the EXPERTS> prompt . where you can 
select the "CoCo Consultations"online form, which has com- 
plete instructions. 




7 made a number ol 
signs, cards and ban- 
ners with CoCo 
Graphics Designer 
Plus and was thrilled 
with them all." 
-Jim Issel 
May 89 Rainbow 

The CoCo Graphics Designer Plus, produces 
beautiful greeting cards, banners, and signs . 

The CGDP features an easy-to-use point and click graphical interface 
with windows, scroll bars, radio buttons, and joystick or mouse control. 
Text can be used in up to 4 sizes and 16 fonts per page. Picture, Font, and 
Border collections are included. Signs and cards can be previewed on 
screen. ... Rave review in May 89 Rainbow (pages 110- 113). 

CGDP Disk & 64 page manual $29.95 



uTEx 




OU.O 



Picture Disk #2 4 sets ol 30 pictures ea., Sports, America, 
Party, Office, Total 120 pictures. 
Picture Disk #3 4 sets of 30 pictures ea. Animals, Nature, Re 
ligion, Travel, Total 120 pictures. 

Picture Disk #4 120 Holiday Pictures: Christmas, Chanukah 
Thanksgiving, New Year's, Easter, Halloween, etc. 
Font Disk A 10 Fonts: Western, Stencil, Banner, Shadow, Va- 
riety, Type, Stripes, Digital, Bold3, Object 
Font Disk B 10 Fonts: Arcade, Circle, Alien, Cube, Baroque 
Deco, Block, Gray, Computer, Script 
Border Disk #1 Contains 176 High resolution borders, great 
variety Irom simple to ornate. (The border disk is for use with 
the CGDP, but not with the Label Designer). 



Above programs require a CoCo II 64K or CoCo III, 

disk drive, RSDOS, joystick or mouse. Printers supported include: Epson 
RX/FX/LX, Gemini 10X, SG10, NX10, NX1000, DMP 105/1 06/1 10/1 20/1 30/ 
132/133/200/400, Panasonic KXP1080 / 90 /91/92, Prowriter, C.ltoh 8510, 
Okidata 92/93/182/183 & more. 



Ordering Instructions: All orders add $3.00 Shipping & 
Handling, UPS COD $3.50 additional. VISA/MC Accepted. 
PA residents add sales tax. Hours 9-5:45 M-F . 



= ZEBRA SYSTEMS, INC. 

121 S. Bun-owes Street 

State College, PA 16801 

(814) 237-2652 
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Database Report 



Name That Tune 
With UltiMusE 



by Eddie Kuns 

OS-9 SIGop 



General Information (in the 
OS-9 SIG): Stephen Macri 
(dracman) posted a 24- 
question non-computer- 
related quiz. An example 
question (not from the quiz) is: 16=0. in a 
P. Answer: Ounces in a pound. Eddie Kuns 
(EDDIEKUNS) submitted a 512-question 
"Hacker Test" to test your knowledge of 
obscure computer lore. 

Applications: Paul Jerkatis (mithe- 
LEN) contributed a program to generate 
random, syntactically correct sentences. 
Kelly Thompson (kmthompson) posted 
a graphics font designed for Sokoban. 

Utilities: Tim Koonce (timkoonce) 
released UnTC (including C source), a 
program that dearchives TCI 2. TC3 and 
TC31 archive files. Roger Krupski (HARD- 
WAREHACK) contributed a group of pro- 
grams to read and sel a Tandy Smart Watch 
chip. Bruce Isted (0S9UGVP) posted an 
assembly language Line Input subroutine 
for basiciw. Ken Heist (MKJ) submitted a 
program to setup an unused window. Randy 
Longshore (randye) posted a collection 
of OS-9 utilities from the #1 9 NewsDisk of 
the European OS-9 Users Group. The utili- 
ties were written by R. J. Telkman of 
England. Source code is included. 

Device Drivers: John Wesson 
(DOCBEAR) contributed a collection of 
additional VDG and window descriptors 
that use memory in the ranee S07FFA0 



Eddie Kuns is pursuing a PhD in phys- 
ics at Rutgers University. He lives in 
Aurora, Illinois and works as a program- 
mer and researcher at Fermilah. Eddie is 
co-manager of the CoCo SIG: his user- 
name is EDDIEKUNS. 



through S07FFCF. Bruce Isted released an 
update to The Eliminator's DACIA device 
driver. 

Patches: John Wesson posted a patch to 
allow 25 or 28 row text screens and 200 or 
225 row graphics screens. 

Telcom: Eric Bursley (BACCHANALIAN) 
submitted a stand-alone program to send a 
true line break through the RS-232 Pak. 

Graphics & Music: Glen Hathaway 
(COMPER) contributed a goofy little graph- 
ics program called bounce4. Christian 
Michaud (SUPERCHRIS) posted an erotic 
GIF image of a woman in a mink coat. 
Mike Knudsen (ragtimer) submitted the 
latest version of JukeBox Player for Ul- 
tiMusE III. This version plays up to 32,767 
notes and can filter oui instrument changes. 
Doug Fraser (LDF) posted an MGE picture 
of the Cutty Sark. one of the last lea clippers 
built. Mike Huskey (kingtrent) posted a 
program lo patch OS-9 Level I Version 
2.00.00 to simulate artifact colors on an 
RGB monitor, and several graphics images. 
Hank Walters (COCOHAM) contributed a 
play file of Billy Fernando sampled from 
Billy Crystal's "Mahvelous!" tape. John 
Kou (BAMBOO) posted ten UltiMusE songs 
including "Up Where We Belong." "Af- 
rica," and "We've Got Tonight." John 
Donaldson (vaxelf) submitted a digit- 
ized GIF picture of a Kawasaki Ninja. Jim 
Buck (COCOROGUE) posted Ricochet Rock, 
a rock blues song for UltiMusE III. Jim also 
submitted "When the Saints go Marching 
In" and J.S. Bach's "Minuet." Brian White 
(BRIAN white) contributed the newest ver- 
sion of Play, which plays digitized sound 
files of up to 2 Meg. Brian also posted a 
fancy screen-saver program called Maze 
lhat creates and solves random mazes while 
preventing phosphor burn of your monitor. 
Zack Sessions (ZACKSESSIONS) released 
Larry Olsen's PacOS9. an arcade-style game 



that should be very familiar. Mike Schnei- 
der (MSCHNEIDER) posted a digitized sound 
file from the movie Animal House: drop 
and give me twenty! Kelly Thompson 
submitted two sound fi les — one was from 
Batman. 

Programmers Den: Eric Stringer (nes) 
posted utilities to convert files from the 
MS-DOS world. Eric also posted the C 
source to a 3-D graphics plotting program. 
Philip Brown (THEFERRET) submitted a 
BASicoy terminal program that supports 
some ANSI codes and an open invitation 
for anyone to continue with the project. 
Greg Law (GREGL) resubmitted Carl Krei- 
der's C libraries, which have been archived 
to prevent linker errors. Brian Wright 
(POLTERGEIST) contributed an archive of C 
functions from UNIX systems. 

CoCo SIG 

General Information: Marty Good- 
man (MARTYGOODM AN) posted a report on 
the '89 Somerset RAINBOWfest. 

CoCo 3 Graphics: Randy Cassel 
(bbtroll) submitted a graphics collection 
of teenage heart-throbs, including one of 
Patrick Swayze. Jason Becker (JAYDEF) 
posted three digitized album covers and 
some natural and unnatural landscapes. 
Charles Phillips (deore) contributed a 
Max- 10 picture of a modified 191 1 -A 1 45 
automatic. Christian Michaud submitted 
three erotic pictures in Color Max 3 format. 
John Malon (JOHNLM) posted a GIF pic- 
ture of jet aircraft in battle. Donald Rick- 
etts (STEVEPDX) contributed an MS-DOS 
program to view graphics files generated 
by the DS69B digitizer on a CGA card. 
Richard Trasborg (tras) and Matthew 
McGinnis (MATTMCGINNIS) were very busy 
uploading dozens of graphics files! Rich- 
ard posted an animation of Katey Sagel in 
640 formal and two IMG pictures of 
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Christina Applegate in a bikini. Richard 
also submitted quite a few erotic pictures 
including Loni (in 16-level grayscale and 
color). Matt posted a number of erotic IMG 
files including the Budweiser gals and a 
collection of mythical creatures. 

Utilities & Applications: Eric Parish 
(ERICPAR) submitted a collection of two- 
dimensional Turing machine programs. 
Alan Bell (ABELL5) posted a list of common 
PEEK. POKE and EXEC addresses for the 
CoCo. Wellie Chao (welliechao) con- 
tributed a set of programs to help you learn 
the periodic table of elements. Tom 
Schaefer (taschaefer) submitted a patch 
to prevent DynaCalc from accessing 
memory above SFEOO on a CoCo 3. Mi- 
chael Kearny (wtvd) posted the share- 
ware version of/-/ ome-Pac, which includes 
a check register and mailing list database 
for the CoCo 3. Bryan Stephens 
(BRSTEPHENS) submitted a machine lan- 
guage program for the CoCo 3 to try differ- 



ent screen colors. Roger Carlson (PERCH) 
contributed a program to convert decimal 
numbers to fractions. Frances Calcraft 
(FRANCALCRAFT) posted a program deal- 
ing with the Rh system of blood typing and 
the three main systems of nomenclature. 
He also posted a monitor program for the 
CoCo 3 to examine or change any area of 
memory including the source. Fred Mit- 
termiller (BIGFRED) contributed a program 
to set up the Panasonic KX-P1 124"s fonts 
and pitches. Don Joyce (REDCOAT) con- 
tributed a program to keep track of bowling 
averages. Donald Ricketts posted a patch to 
allow VIP Writer HI 2.0 to access Extended 
ADOS-3 RAM Drives. 

Hardware Hacking: John Weidman 
(SKYLINE) uploaded a text file explaining 
how to put two DOSs in one EPROM for 
the Disto SC-1 or SC-2 disk controllers. 

Games: Stephen Macri posted a CoCo 3 
text-style football game (you play against 
the computer) and an Acey Ducy card 



game. John Malon contributed a trivia game 
using initials and numbers and a BASIC 
program for solving Rubik's Cube. Eric 
Stringer submitted ROBOTZAP.BAS. Can you 
escape the evil robots before they zap you? 

Classic Graphics: Dennis McMillan 
(cocokiwi) posted the An Gallery from 
the March, May, July and September '89 
issues Of THE RAINBOW. 

Music & Sound: Hank Walters con- 
tributed a sound sample of Billy Crystal. 
This is the same sample he posted on the 
OS-9 SIG. 

Telecommunications: Mike Ward 
(MIKEWARD) posted RLETerm, a graphics 
oriented terminal program. It will receive 
and display RLE pictures and save them to 
tape or disk. He also included three sample 
RLE pictures. Rick Adams (RICKADAMS) 
posted a program to create a login macro 
for DELPHIterm that will log you into 
Delphi via Telenet. 

Q 




METRIC INDUSTRIES, INC. 



Model 101 

Serial to Parallel Printer Interface 

* Works with any COCO 
Compatible with "Centronics" Parallel Input Pnnters 
Just turn the knob to select any one ot 6 baud rates 300-9600 
Comes complete with cables to connect to your printer 
and computer 
Can be powered by most printers 

Model 104 Deluxe Interface 
with "Modem Switch" 

* Same Features as 1 01 Plus 

* Built in Serial Port for your Modem or other serial device 

* Switch between Serial Output and Parallel Outpul 

* Comes with cables to connect to your computer and printer 

* Can be powered by most printers 

Model 105 Serial Switch 

Connects to your COCO to give you 2 switch selectable 

Serial Ports 

Comes with a 3 toot cable to connect to your computer 

Now you can connect your Printer (or printer interface) 

and your Modem (or other senal device) to your COCO 

and Hip the switch to use either device 

Does not require power 

Cassette Label Printing Program 

New Version 2.1 prints 7 lines of information 

on Cassette labels 

Comes on Tape with instructions to transfer lo disk 

Menu driven, very easy to use 

Save and Load Labels from Tape and Disk 

Uses the features of your printer to print standard. 

expanded, and condensed characters 

Automatically Centers Each Line ot Text 

Allows editing ot label before printing 

Program comes with 24 labels to get you started 

16KECB required 



Some of the Printers 
That Can- 
Supply power for the 101 and 
104 are Radio Shack. Star, 
Okidata, Brother. Juki, and 
Smith Corona. 

Some of the Printers 
That Cannot - 

Supply power for the interlaces 
are Epson, Seikosha, 
Panasonic. Silver Reed and 
NEC. If your printer cannot 
supply power to the interface 
you can order your interlace 
with the "P" option or you can 
supply your own AC adapter. 
We recommend the Radio 
Shack 273-1431 AC adapter 
with a 274-328 connector 
adapter. 

Write or call for mors 
Information or for technical 
assistance. 



Price List 




Model 101 


35.95 


Model 1 01 P 


41.95 


Model 104 


44.95 


Model 104P 


51.95 


Model 105 


14.95 



Cassette Label Program 6.95 
Pin Feed Cassette Labels: 
White 3.00'100 



4 Pin Din Serial 
COCO Cables: 

Male/Male 6 foot 
Male/Female 6 foot 
Female/Female 6 loot 
Other Lengths Available. 

All items covered by a 
1 year warranty 



4.49 
449 
4.49 



Ordering Info 



* Free Shipping in the 
U.S.A. (except AK and HI) 
on all orders over $50 

* On orders under $50 
please add $2.50 tor 
shipping and handling 

* On orders outside the 
U.S.A. please write or call 
for shipping charges 



You Can Pay By: 

* VISA or MasterCard 

* Or send check or money 
order payable in U.S. funds 



Metric Industries Inc. 
P.O. Box 42396 
Cincinnati, OH 45242 

(513)677-0796 
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A program for creating forms on 
IBM-compati bl e printers 

Another Form 



by Benjamin Brunotte 



111ml ii i 



L " ! I ■- !■ r II " rr " ■ n li = if - " f ir «■ fc f 
' . B . I i ■ r ir k 

n 



Today 3 flats 
Hd. D i . 



Soc 


a 


5ei ' i 1 ■ 'ii unb&i 








3 




- 


| 




i 



NAME: 



■ : 



i-liddie 






CI Ty 



iTATE 



. 1 1 . ODI 





TELEPHON 


NUMBt£fi 










li 








- 











Cade 



1- 


p 


R 


M 




M 


A 


1 


E 


R 



by Ben brunotte 
COPYRIGHT 196<? 



Creating forms gets boring with 
a paper and pencil, so let Form 
Maker take some of the te- 
dium out of it. The program 
generates forms using the IBM 
line characters available on IBM graphics 
and compatible printers. Form Maker re- 
quires a Color Computer 3 with one disk 
drive. 

I used the technique for storing the line 
characters described in "Barden*s Buffer" 
in the March '88 issue of THE RAINBOW. 
The only drawback is that changing charac- 
ter sets slows the program down. The printer 
prints the forms at normal printing speed. 
Since bidirectional printing produces a 
wavy look. Line 860 sets the printer for 
unidirectional printing. This line may need 
to be changed to reflect control codes for 
the printer being used. 

The control keys for the program are: 

break — goes to a menu to save/load 
on disk or to exit. 

CLEAR — clears entire form to start 
over. 

ALT — toggles the Repeat function on 
and off. A red cursor indicates whether or 
not Repeat is on. Use the arrow keys to 
move the cursor. When Repeal is turned on. 
the character under the cursor is repeated. 
A new character can be entered, and the 
new character is repeated as the cursor 
moves. The black cursor indicates Repeat 
is off. 

CTRL — moves to another section of the 
page. The page is divided into nine overlap- 
ping sections. Use the arrow keys to select 
the direction of the move. 

Fl — activates the line characters. Use 
the right and left arrow keys to scroll through 
the character set. Press enter when the 
character you want is displayed. 

F2 — prints the form. A preview option 
is provided. During the preview the full 
width is displayed, but the page is divided 
into three overlapping sections for the length. 
Baud rate is selectable. The printer should 
be set to IBM-compatible mode before the 
program is run. 

arrow — moves the cursor on the 
section of the page being displayed. If the 
repeat is on, a character is repeated as the 
red cursor moves. Pressing a key on the 
keyboard puts that character on the form at 
the cursor position. The black cursor is 
nondestructive as it moves. □ 



Ben Brunotte. who works in operations at a 
large oil refinery, is a self-taught program- 
mer. The Color Computer is his hobby. He 
may he contacted at 3221 N. Twin city 
Hwy.. #6. Nederiand. TX 77627. 
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The Listing: FORMAKER 
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by BENJAMIN W. BRUNOT 
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Q0 ***************************** 
******** 

90 GOTO170 

100 HC0L0R1.4-IF 2$-" " THEN 150 
110 IF Z$>" " AND ZS<-"z" AND CS 
-0 THEN 150 ELSE IF Z$>" " AND Z 
$<-"z" AND CS-1 THEN CS-0:OF-1:G 
OTO 140 

120 IF Z$->CHR$(179) AND ZSOCHR 

$(223) AND CS-1 THEN 150 ELSE IF 

Z$=>CHR$(179) AND Z$<-CHR$(223) 

AND CS=0 THEN CS-1 :0F-46: GOTO 1 

40 

130 HSCREEN0:CLS5:LOCATE0.11:PRI 
NT"CHARACTER ERROR !!!!": PRINT" 



CHARACTER #";STR$( ASC(Z$ ) ) : STOP 
140 FOR L-0 TO 44: FOR B-0 TO 7:N 
-ASC(MID$(CS$(L+OF).B+l.l)):POKE 

(61605+(L*8)+B).N:NEXT B.L 
150 IF Z$->" " AND Z$<-"z" THEN 
HPRINT(CL-XO.RW-YO).Z$ ELSE HPRI 
NT(CL-X0.RW-Y0).CHR$(ASC(Z$)-146 
) 

160 RETURN 

170 POKE 65497. 0: PALETTE0.63: PAL 
ETTE1 . : PALETTE2 . 63 : PALETTE3 . 36 
180 WIDTH40:CLS5:CLEAR7000:DIM L 
T$(66).CS$(90):VERIFYON:HBUFF1.1 
6:0N BRK GOTO 580: LOCATE0.7 : PRIN 
T" ";STRING$(36."*"):PRINT" *" 
:STRING$(12.32):"F0RM MAKER" :STR 
INGJ( 12.32) :"*" 

190 PRINT" *":STRING$(12.32);"- 
-———": STRING$( 12. 32 ):"*": PR 
INT" *":STRING$(8.32):"for IBM 
Graphic and" ; STRINGS (7 .32) :"*":P 
RINT" *":STRING$(8.32);"compati 
ble printers":STRING$(7.32) :"*" 
200 PRINT" * by BENJAMIN W 
. BRUNOTTE *": PRINT" *":STR 
I NG$( 10. 32): "COPYRIGHT 1989" :STR 
I NGS( 10. 32 ):"*": PRINT" " ; STRING 
$(36."*"):LOCATE0.0 
210 FOR L-l TO 90:CS$(L)-"":NEXT 

L:FOR L-0 TO 44: FOR B-0 TO 7 : N- 
PEEK(61605+(L*8)+B):CS$(L+1)-CS$ 
(L+1)+CHR$(N):READ N:CS$( L+46)-C 
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SS(L+46)+CHRS(N):NEXT B.L 

220 HCOLOR1.4:HSCREEN1:HGET(0,0) 

-(7.7) .1 

230 HC0L0R1.4:HSCREEN1:X0-1:Y0-1 

:DP-0:FOR B-l TO 66: LT$(B)-STRIN 

GS(80.32):NEXT B: X-0: Y-0: Z$-" ": 

GOTO 250 

240 HC0L0R1.4:HSCREEN1:F0R RW-YO 

TO Y0+23:F0R CL-XO TO X0+39:ZS- 
MIDS(LTS(RW).CL.l):GOSUB 100:NEX 
T CL.RW:X=0:Y-0:OP-0 
250 SOUND255.1:NX-0:NY-0:XX-X*8: 
YY-Y*8: IF DP-1 THEN PALETTE3.36: 
HPUT(XX.YY)-(XX+7.YY+7).l.NOT EL 
SE PALETTE3.0:HPUT(XX.YY)-(XX+7, 
YY+7J.1.N0T 

260 IF PEEK(341)=191 THEN IK$-IN 
KEY$:SOUND110.5:IF DP-0 THEN DP- 
l:ZS-MIDS(LTS(YO+Y).XO+X.l):GOTO 
510 ELSE DP-0:GOTO510 
270 IF PEEK(342)<>191 THEN 330 
280 HSCREEN0:CLS5:PRINT"PRESS AN 

ARROW KEY TO MOVE TO ANOTHER":P 
RINT"SECTION OF THE FORM OR":PRI 
NT"PRESS <ENTER> TO STAY IN SAME 

SECTION" 
290 IKS-INKEYS : IF IK$-CHR$(13) T 
HEN 240 
300 IF IK$-CHR$(8) THEN XO-XO-20 

ELSE IF IK$-CHR$(9) THEN XO-XO+ 
20 ELSE IF IK$-CHR$(10) THEN YO- 
YO+21 ELSE IF IK$-CHR$(94) THEN 
Y0-Y0-21 ELSE 290 
310 IF X0<1 THEN XO-1 ELSE IF XO 
>41 THEN XO-41 ELSE IF YOU THEN 

YO-1 ELSE IF Y0>43 THEN YO-43 
320 GOTO 240 

330 IF PEEK(343)<>191 THEN 390 E 
LSE Z-179 

340 HC0L0R1.4:HPUT(XX.YY)-(XX+7, 
YY+7 ) , 1 , PSET : Z$-CHR$( Z ) : CL-XO+X : 
RW-YO+Y:GOSUB100 
350 IF INKEY$=CHR$(13) THEN 380 
ELSE IF PEEK(343)-247 THEN Z-Z-l 

ELSE IF PEEK(344)-247 THEN 1-1+ 
1 ELSE 350 

360 IF Z<179 THEN Z-223 ELSE IF 
Z>223 THEN Z-179 
370 GOTO 340 
380 Z$-CHR$(Z):GOTO 490 
390 IF PEEK(344)-191 THEN HCOLOR 
1.4:G0T0 670 

400 IF PEEK(343)-247 THEN NX— 1 
ELSE IF PEEK(344)-247 THEN NX-1 
ELSE IF PEEK(342)-247 THEN NY-1 
ELSE IF PEEK(341)-247 THEN NY— 1 
410 IF NXO0 OR NYO0 THEN 510 
420 I K$-INKEY$ : IF IK$-"" THEN 26 

430 IF IKS-"g" AND PEEK(343)-191 

THEN 330 
440 IF (IK$-"@" AND PEEK(341)-19 

1) OR IKS- THEN 260 

450 IF IKSOCHRSU2) THEN 480 
460 HSCREEN0:CLS5:PRINT"DO YOU W 
ANT TO CLEAR FORM (Y/N)?" 
470 IKS-INKEYS:IF IKS-"Y" OR IK$ 
-"y" THEN 230 ELSE IF IKS-"N" OR 

IKS-"N" THEN 240 ELSE 470 
480 IF 1K$<" " OR IK$>"z" THEN 2 
60 ELSE ZS-IKS 
490 IF DP-0 THEN NX-1 
500 MIDS(LTS(YO+Y).XO+X.l)=ZS 
510 HPUT(XX.YY)-(XX+7.YY+7),1.PS 
ET: CL-XO+X : RW-YO+Y :GOSUB 100:X-X 
+NX:Y-Y+NY 
520 IF X<0 THEN X-39:Y-Y-1 



530 IF X>39 THEN X=0:Y-Y+1 

540 IF Y<0 THEN Y-23 

550 IF Y>23 THEN Y-0 

560 IF DP-1 THEN MID$( LT$(YO+Y ) . 

XO+X.l)-Z$ ELSE Z$-MID$(LT$(YO+Y 

l.XO+X.l) 

570 CL-XO+X:RW-YO+Y:GOSUB100:GOT 

0250 

580 HCOLOR1.4:HSCREEN0:CLS5:PRIN 

TrPRINT" S - SAVE TO DISK":PRINT 

" L - LOAD FROM DISK":PRINT" R - 

RETURN TO SAME FORM":PRINT" N - 

START NEW FORM": PRINT" X - EXIT 

FROM PROGRAM" : PRI NT :PRINT"PRESS 

S. L. R. N. OR X KEY.": 
590 IK$-INKEY$:IF IK$-"R" OR IKS 
-"r" THEN POKE 65497, 0:GOTO 240 
ELSE IF IK$-"N" OR IK$-"n" THEN 
POKE 65497. 0:GOTO230 ELSE IF IK$ 
-"X" OR IKS-'V THEN POKE 65496. 
0:PALETTE CMP:CLEAR 500:PRINT:PR 
INT:PRINT" GOODBYE":END 
600 IF IKSO"S" AND IK$<>"L" AND 

IK$<>"s" AND IK$<>"1" THEN 590 
ELSE CLS 

610 PRINT:PRINT"ENTER FILENAME: 
": : LINEINPUT F$: IF LEN(F$)>8 THE 
N PRINT" TOO LONG - RED0":G0T06 
10 

620 POKE 65496. 0: F$-F$+"/FMI":OP 
EN"D".#1.FS.1:FIELD#1.1 AS AS:R= 
1 : IF IK$-"L" OR IK$-"1" THEN 650 
630 PRINT"SAVING ":F$: FOR 8=1 TO 

66:LOCATE0.4:PRINT"LINE";B 
640 FOR 1-1 TO 80:LSET A$-MID$(L 
TS(B).I.1):PUT#1.R:R-R+1:NEXT I. 
B: CLOSE :GOTO580 

650 PRINT"LOADING ":F$:FOR B-l T 
66:LOCATE0.4:PRINT"LINE";B 
660 FOR 1-1 TO 80:GET#1.R:R=R+1: 
MIDS(LTS(B),I.1)-AS:NEXT I.B:CLO 
SE : XO-1: YO-1 :DO-0: POKE 65497.0:6 
OTO240 

670 HCOLOR1.4:HSCREEN0:CLS5:PRIN 
T:PRINT"DO YOU WANT TO PREVIEW F 
ORM (Y/N)?" 

680 IK$-INKEY$:IF IK$-"N" OR IKS 
-"n" THEN 750 ELSE IF IK$<>"Y" A 
ND IKSO"y" THEN 680 
690 PRINT:PRINT"PRESS <ENTER> TO 

CONTINUE AFTER EACH SECTIO 
N OF THE FORM.":FOR B-l TO 250*5 
:NEXTB 

700 X0-1:F0R YO-1 TO 43 STEP21:H 
SCREEN4 

710 FOR Y-0 TO 23:RW-Y0+Y:IF LTS 
(RW)=STRINGS(80.32) THEN 730 
720 FOR X-0 TO 79:CL-XO+X:ZS-MID 
S(LTS(RW).CL.1):GOSUB100:NEXTX 
730 NEXTY:SOUND10.5:SOUND150.3 
740 IKS-INKEYS:IF IKSOCHRS(13) 
THEN 740 ELSE NEXT YO 
750 HSCREEN0:CLS5:PRINT:PRINT"PR 
INT FORM (Y/N)?"::XO-l:YO-l:DP-0 
760 IKS-INKEYS:IF IKS-"N" OR IKS 
- M n" THEN 240 ELSE IF IKSO"Y" A 
NO IKSO"y" THEN 760 
770 CLS5:PRINT:PRINT"READY PRINT 
ER AND SELECT BAUD RATE: ": PRINT" 

1) 300 BAUD":PRINT" 2) 
600 BAUD": PRINT" 3) 1200 BAUD 
":PRINT" 4) 2400 BAUD": PRINT" 
5) 4800 BAUD": PRINT" 6) 9 
600 BAUD" 

780 IKS-INKEYS:IF IKS<"1" OR IKS 
>"6" THEN 780 
790 POKE 65496. 0:ON VAL(IKS) GOT 



800.810.820.830.840.850 

800 POKE150.180:GOTO860 

810 POKE150.87:GOTO860 

820 POKE150.41:GOTO860 

830 POKE150.18:GOTO860 

840 POKE150.7:GOTO860 

850 POKE150.1 

860 PRINT#-2.CHRS(27):"U1"::-UNI 

DIRECTIONAL PRINTING 

870 FOR B-l TO 66: PR1NT"PRINTING 

LINE":B 
880 IF LTS(B)-STRINGS(80.32) THE 
N PRINT#-2.CHRS(13): ELSE PRINT* 
-2.LTS(B) 
890 NEXTB:GOTO580 
900 DATA 24.24.24.24.24.24.24.24 
910 DATA 24.24.24.24.248.24,24.2 
4 

920 DATA 24.24.248.24.248.24.24. 
24 

930 DATA 54.54.54.54.246.54.54.5 
4 

940 DATA 0.0.0.0.254,54.54.54 
950 DATA 0.0.248.24.248.24.24.24 
960 DATA 54.54.246.6.246.54.54.5 
4 

970 DATA 54.54.54.54.54.54.54.54 
980 DATA 0.0.254.6.246,54.54,54 
990 DATA 54.54.246.6.254.0.0.0 
1000 DATA 54.54.54.54.254.0,0.0 
1010 DATA 24.24.248.24.248.0.0.0 
1020 DATA 0.0.0.0.248.24.24.24 
1030 DATA 24.24.24.24.31.0.0.0 
1040 DATA 24,24.24.24.255.0.0.0 
1050 DATA 0.0.0.0.255.24.24.24 
1060 DATA 24.24.24.24.31.24.24.2 
4 

1070 DATA 0.0.0.0.255.0.0.0 
1080 DATA 24.24.24.24.255.24.24. 
24 

1090 DATA 24.24.31.24.31.24.24.2 
4 

1100 DATA 54.54.54.54.55.54.54.5 
4 

1110 DATA 54.54.55.48.63.0.0.0 
1120 DATA 0.0.63.48.55.54.54.54 
1130 DATA 54,54.247.0.255.0.0.0 
1140 DATA 0.0.255.0.247.54.54.54 
1150 DATA 54.54.55.48.55.54.54.5 
4 

1160 DATA 0.0.255.0.255.0.0.0 
1170 DATA 54.54.247.0.247.54.54. 
54 

1180 DATA 24.24.255.0.255.0.0.0 
1190 DATA 54.54.54.54.255.0.0.0 
1200 DATA 0.0.255.0.255.24.24.24 
1210 DATA 0.0,0.0.255.54.54.54 
1220 DATA 54.54.54.54.63,0.0,0 
1230 DATA 24.24.31.24.31.0.0.0 
1240 DATA 0.0.31.24.31.24.24.24 
1250 DATA 0.0.0.0.63.54.54.54 
1260 DATA 54.54.54.54.255.54.54. 
54 

1270 DATA 24.24.255.24.255.24.24 
.24 

1280 DATA 24.24.24.24.248.0.0.0 
1290 DATA 0.0.0.0.31.24.24.24 
1300 DATA 255.255.255.255.255.25 
5.255.255 

1310 DATA 0.0.0,0.255.255.255.25 
5 

1320 DATA 240.240.240.240.240.24 
0.240.240 

1330 DATA 15.15.15.15.15.15.15.1 
5 

1340 DATA 255.255.255.255.0.0.0. 
/^ 
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A 3D bar graph program for charting information 




by Bryan Stephens 



Business tools come in all shapes and sizes, and the 
ability to view financial data in graphics form is a 
tool few businesses can do without. The three- 
dimensional bar graph program 3DGraph is one in 
which up to 52 bars can be plotted. The width of 
the bars varies in size according to the total number of bars 
created. The program includes an option that expands the 
graph, giving it greater resolution: this loo depends upon the 
variables. Also provided is a means to print the graph on your 
printer. 

Operation of 3DGraph is straightforward. It does three 
things: 

Plots up to 52 points - type a number and then press ENTER 
to go on to the next number. When finished, enter -1. The 
program then transfers control to the plotting routine. There 
is an automatic cut-off point at 52 bars. 

Expands the graph — the results you get depend upon the 
numbers plotted, but the lowest number is reconfigured to 
with the others scaled appropriately. 

Prints out either or both graphs (as in the sample printout). 
You will need a printer with graphics capabilities. If you have 



Bryan Stephens lives on the west coast of Canada. Working 
as a self-employed handyman gives him time to pursue his 
interest in computers. He has been working with the CoCo 3 
for three years. He may he contacted at 43140 Government 
Rood. Apt. 303. Brackendale. B.C.. VON IHO Canada. 



a Radio Shack DMP (I have a DMP-1 30). there should be no 
errors. For those of you with other printers, the codes used are 
in the following lines: 

102 - tells the printer to repeat the subsequent CHR$ code six 

times. 

104 - CHR$(18) sets the Graphics mode, CHR$(30) resets the 

printer for WP mode, and CHR$(20) tells the printer to use the 

Condensed mode. 

I06 — positions the print head to a particular column. 

108 — the line feed code. In this case the linefeed is set to equal 

V-'i" inch. 

Programming Notes 

Line 1 00 contains the slow-down poke and sets the baud rate 
(the speed at which the computer sends data to the printer). In 
this program 1 8 (2400 baud) is used, but if the high-speed poke 
is left set. just divide the baud rate in half. i.e.. 40 ( 1200 baud). 
Further information on baud rates can be found on Page 24 in 
the April 1 987 issue of THE RAINBOW. 

Lines 1 1() through 1 14 contain an error trap to see if the 
printer is online and also a routine to change screens and return 
without clearing the HSCREEN (taken from Page 52 in the May 
1987 issue of the rainbow). 

Hardware Needed 

This program was designed using a CoCo 3. a CM-8 moni- 
tor, a DMP- 1 30 printer and a disk drive. You* II need everything 
but the disk drive to rui\3DGraph. The program can lie adapted 
forotherCoCos using PMODE4 graphics, but the numberof bars 
will be reduced. 
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16 

30 210 

52 189 

70 157 

82 160 

98 41 

114 121 

124 228 

136 179 

END 49 



The Listing: 3DGRAPH 

' COPYRIGHT 1990 FALSOFT. INC 

2 CLEAR7000 

4 DIM P(52).VJ(13) 

6 ON BRK G0T0144 

8 RGB:WIDTH40:CLS4:ATTR3.3 

10 PRINT"This is 3-D Graphing pr 

ogram. There are three main opti 

ons to it." 

12 PRINT:PRINT"l)Regular size gr 

aph":PRINT"2)Expanded scale grap 

h" 

14 PRINT"3)Pr1nting of either ty 

pe of graph" 

16 PRINT:PRINT"**Note that you c 

an plot from 1-31 points (r 

ange-0 to 99999) use -1 to end" 

18 A-l 

20 LOCATE0.15:PRINT"Enter numbe 

r ":L0CATE13.15:PRINTA:L0CATE16. 

15:PRINT"to pi of :: INPUT P(A):L0 

CATE24.15:PRINT" 

22 IF P(AX0AND A-1THEN20 

24 IF PCA)— 1 THEN A-A-1:GOTO30 

26 IF P(A)>99999 OR P(AX0THEN 2 



28 A-A+l : IF A>52THEN A-A-1:G0T03 

0ELSE20 

30 ■**** INITIALIZING **** 

32 SM-P(1):LG-P(1):F0R 0-1T0 A: I 

F P(0)>LG THEN LG-P(Q) 

34 IF P(Q)<SM THEN SM-P(O) 



36 NEXT:Q-Q-1 : FL-1 

38 EX-0:Z— 2: IF LG-0THEN RUN 

40 Y2=(53-Q)*2:SC-(180-Y2)/LG:PC 

-(182-Y2)/LG 

42 G-(295/Q)*2:G2-G/2 

44 •**** SET screen **** 

46 HSCREEN4:HC0L0R1:PALETTE3.63: 

PALETTE2.3:PALETTE0.0 

48 ON BRK GOTO 144 

50 POKE65497.0 

52 HLINE(40.0)-(40.180).PSET 

54 FOR L-180 TO STEP-16 

56 V-(180-L)/SC+EX:IF V<1000THEN 

V-INT(V/.1+.5)*.1ELSE V=INT(V+. 
5) 

58 VJ-STR$(V):U-LEN(V$):V$-RIGHT 
$(V$.U-1):A-A+1 
60 HPRINT(0.L/8).V$ 
62 FOR B-44TO630STEP G:HLINE(B-4 
,L)-(B.L).PSET:NEXT 
64 NEXT 

66 HPRINT(0.23)."<E>-expansion < 
P>-printer <R>=regular size <A>n 
other plot <ESO-quit" 
68 •**** PLOT BARS **** 
70 A-l 

72 FOR X-44TO630STEP G:Y-INT(180 
-P(A)*SC+.5):HC0L0R3 
74 IF X>630THEN88 
76 HLINE(X.183)-(X+G2.Y).PSET.BF 
78 HLINE(X.Y)-(X+G2*.66.Y-G2*.13 
).PSET:HLINE(X+G2.Y)-(X+G2+G2*.6 
6,Y-G2*.13),PSET:HLINE(X+G2.183) 
-(X+G2+G2*.66.183-G2*.13).PSETV 
//lines 

80 HLINE(X+G2*.66.Y-G2*.13)-(X+G 
2+G2*.66.Y-G2*.13).PSET:HLINE(X+ 
G2+G2* . 66 . 183 - G2* . 13 ) - { X+G2+G2* . 
66.Y-G2*.13).PSET 
82 HPAINT(X+G2.Y-1).2.3 
84 HPAINT(X+G2+1.181).2.3 
86 A-A+l: NEXT 
88 A$-INKEY$:IF A$-"P"THEN98ELSE 

IF A$-"R"THEN96ELSE IF A$-"A"TH 
EN HSCREEN0:RUN 
90 IF A$<>"E"THEN88 
92 IF FL-2THEN88ELSE HCLS:F0R A- 
1TO Q:P(A)-P(A)-SM:NEXT:LG-LG-SM 
:EX-SM: IF LG-0THEN LG-1 



94 FL-2:GOTO40 

96 IF FL-1THEN88ELSE FOR A-1T0 Q 

:P(A)-P(A)+SM:NEXT:LG-LG+SM:FL-1 

:G0T038 

98 ■**** PRINTER ROUTINE **** 

100 POKE65496.0:POKE150.18 

102 R$-CHR$(28)+CHR$(6) 

104 G$-CHR$(18):N$-CHR$(30)+CHR$ 

(27)+CHR$(20) 

106 P$-CHR$(27)+CHR$(16) 

108 LF$=CHR$(27)+CHR$(51) 

110 SP-PEEK(65314)AND1 

112 IF SP>0THEN PLAY"V2 : L100;C" : 

POKE &HE6E4.&HE6:HSCREEN0:POKE & 

HE6E4.&HE7:WIDTH40:ATTR2.3:PRINT 

"TURN THE PRINTER ON !!!":G0T011 

0ELSE116 

114 A$-"":P0KE &HE6E4.&HE6:HSCRE 

EN4:P0KE &HE6E4.&HE7 

116 D-0:FOR A-182TO0STEP-14: V-(l 

82-A)/PC:IF V<100THEN V-INT(V/.l 

+.5)*.1ELSE V-INT(V+.5) 

118 V$=STR$(V+EX):U=LEN(V$):V$(D 

)-RIGHT$(V$.U-l):D-D+l:NEXT 

120 D-14:F0R A-0TO26 

122 IF A/2-INT(A/2)THEN D-D- 1: PR 

INT#Z.N$::PRINT#Z. USING"* %" 

:V$(D)::PRINT//Z. STRINGS (0*2+1.". 

"): 

124 T-1:F0R J-45T0(0*14+35)STEP1 

4 

126 IF J>255THEN F1-INT( J/256) :F 

-J+1-F1*256ELSE Fl-0: F-J 

128 YY-INT(182-P(T)*PC+.5):IF A* 

7<YY OR YYM81THEN NN-0:GOTO138 

130 IF A*7-YY THEN NN-128:G0T013 

6 

132 IF A*7>YY+7 THEN NN-255:G0T0 

136 

134 NN-0:D2-7-(A*7-YY):FOR K-D2 

TO 6:NN-NN+INT(2"K):NEXT:NN-NN+1 

28 

136 PRINT#Z.N$:P$:CHR$(F1):CHR$( 

F);G$:R$:CHR$(NN): 

138 T-T+1:NEXT:PRINT#Z.G$:LF$ 

140 T-0:NEXT 

142 POKE65497.0:GOTO88 

144 HSCREEN0:RGB:WIDTH40:POKE654 

96.0:END ^ 
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C»in> Window Writer 1.2 

what we believe to be the best word processor available lor OS/9 just got better! You asked and we listened. We 

have added new features which the public has requested! 

DYNASPEU 102K WORD SPELLING CHECKER NOW AVAILABLE! 



More Versatile and Powerful. OS/9 Allows you Freedom and Power. The mouse 
and pull-down menus give you speed and ease of use. 



Quit Box 



Pull-Down_Menus 
t 



i r^—± — ^ o^ z: — * "^ ■_ — w- 

[] File Edit Format Search* Style Help A \i 



®WL» Wind ow Write r, a new OS/9 word processor. 
Text Cursor 



Mouse Cursor 



Pg 1 Line 1 Col 1 Insert On WWrapOn File: name 



Text Cursor 
Position 



Insert Toggle 



Multi-Tasks 

Window Writer is 

the first Color Com- 
puter word processor 
which takes full ad- 
vantage of OS/9. The 
result is a word 
processor which is 
fully as modern and 
professional in action 
as those previously 
available only for the 
IBM and Mac. The 
operating system al- 
lows true multi-task- 
ing with other 
programs or itself. 
Not limited to just 
printing one file and 
editing another. You 
can print one file in one window while you edit files in other 
windows. At the same time you can be running a small program 
in another window. You can cut and paste between sections of 
files in different windows. 

Hi-Res Display 

Window Writer uses an 80-column monitor display screen for 
clarity. As shown in the above screen drawing, you can quickly 
see how to access the menus and help screens. You can deter- 
mine the current position by page, line number, and column. The 
mouse can use this section to quickly change to a specific page 
or line in the file. The text insert and word wrap toggles also are 
indicated and changeable with the mouse button. 

Ram Disk 

A RAM disk is set up in Window Writer to make full use of 
all or a user specified portion of the memory on the 512K CoCo 
3. On the 128K CoCo a smaller RAM disk is set up to still allow 
use of all available memory for file editing. For use of all features, 
a 512K machine is required. 

The RAM disk is used for storage of the file(s) being edited, 
for the clipboard for cut and paste, and as a print spooler for the 
file being printed. Window Writer's clipboard can be saved to 
disk or pasted into any file being edited because files use the same 
clipboard memory. The RAM disk also can be used with other 
OS/9 programs. 

Mail-Merge 

With Window Writer you can create form letters and send 
them out to a list of addresses in an address file. First names or 
other information can be added to "personalize" these letters. 



Up and Down 
Arrows, 



A full selection of pull 
down menus and detailed 
help screens make learn- 
ing easy and are only a key 
stroke (or mouse click) 
away. All menus and help 
screens can be user con- 
figured for everything in- 
cluding menu colors and 
contents. You don't like 
the color of a menu? You 
think one help item 
should be listed different- 
ly? Change them! 

The menus and help 
screens can be reached by 
™* cursor keys or the mouse 
(or joystick) or can be accessed by control keys. 



Pull Down 

Menus and 

Help Screens 



Word Wrap 
Toggle 



Current 
File Name 




French Version: 

An abridged French 
translation of the Window 
Writer manual is now avail- 
able. This manual is written 
by a Canadian CoCo user 
and will aid French speak- 
ing users. Only S7.50 addi- 
ItionaL 



Editing is a snap with OWL's Efficient Mouse Usage! 



Editing 

Like most modern word processors, with Window Writer 
there is always more than one way to access any editing feature. 
You can access editing by menus using 
mouse, "keyboard mouse", or through 

control keys. Full help screens are O^JPvr M ° re 

quickly available for all editing fea- |K>C^2« "N 

tures. A help screen can be left visible *\ /» 

while needed and then quickly 
removed to get back to full screen edit- 
ing. 



One nice feature is the price: 

only $59. 

For the DynaSpell Spelling 
Checker by Dale Puckett includ- 
ing the 102K Word Dictionary: 

only $20. additional! 




P.O. Box 116-A 

Mertztown, PA 19539 

— ORDER LINES (only) — 

(800) 245-6228 

(215) 682-6855 (PA) 




Proven 



On the Razor's Edge of 



The Hard Drive's New Frontier: 

The Most Advanced Color Computer 
Hard Drive System Ever Offered! 



Fast No-Halt SCSI Floppies Using Optiona 
Proven Performance for Demanding Home or 



I SCSI Controller 
Business Users 



OWL-WARE has now been supplying 
Color Computer hard drive systems for 
over 4 years. We have reached our posi- 
tion in the hard drive market by 
providing our customers with a high 
quality product that they can be proud 
to own and use. Our first concern has 
always been quality and sound design. 

Wc arc now announcing our most ad- 
vanced hard drive system ever. Using 
the optional OMTI 5200 SCSI control- 
ler with our Hard Drive Interlace, our 
new system will support no-halt floppy 
drives. You need not wail while typing 
or worry about clock time losses. Why 
be limited to 3 floppy drives? A com- 
plete system could now consist of 1-3 
standard CoCo floppy drives, 1-2 (or 
more) hard drives, and 1-2 no-hall flop- 
pies using standard (not just CoCo) 
OS/9 formal. You can use single or 
double-sided 40 or 80 track drives with 
the SCSI no-halt controller. 

There are several new features with this 
improved interface. These include: 



• Full SASI/SCSI compatible (this al- 
lows many add-ons to the versatile 
SCSI buss) 

• No-Halt Floppies with optional SCSI 
controller allows lull type-ahead 
during access 

• Low factory-direct prices 

• Fast Delivery from factory stock 

• Optional Real Time Clock with built 
in battery (3-10 year lifetime) 

•With the Clock you have 240 Bytes of 
battery backed up RAM for password 
protection or data storage! 

• Same super stable LRTech quality 

Our quality is obvious when compared 
to any other Hard Drive system or inler- 
face. Even the box is special. Our 
systems have always had a fan. Has our 
competition just heard about them? 



Now Available with High 

Density 5.25" drives as 

well as 720K! 

Disk Capacity of more 
than 1 Meg Formatted! 

Same low price as our 

720K super systems 

listed below. 



P 

Re; 



terface Price only: $85. 
Real Time Clock-R\M: $25. 



20 Meg. 40 Meg. 80 Meg. 

(2X40 Meg.) 
System Prices: (Includes Hard Drive, case, & fan, SASI Controller*, 
LR/OWL Interface, Software. Fully assembled and tested.) 

$519. $629. $929. 

Super System Prices: (LR/owl System as above but omti 5200 
SCSI Controller AND 3.5" 80 Track Floppy Drive in same case) 

$649. $759. $1099.(2 cases) 

*SASI controller is unused surplus. Add $75 for OMTI SCSI 



OWL Hard Drive BASIC 3 

There have been several ads in this 
magazine about BASIC for Color 
Computer hard drive systems. These 
ads sometimes only tell a part of the 
story. Our BASIC system price in- 
cludes assembly, testing, and 3-day 
burn-in period. Wc do not require a 
Multi-pak to operate. 

Our hard drive systems are fast, reli- 
able, and reasonable in price. This has 
been proven by hundreds of users over 
the past 4 years. We do not have to turn 
off error checking for speed. Wc 
achieve high speed BASIC from a uni- 
que indexing method. 

OWL HD BASIC 3 is very fast due to 
our index method. Almost all BASIC 
commands work normally including 
DSKINI. DSKIS, and DSKOS. 

BASIC for Hard Drives 

Prices: With/Without Hard 

Drive 

$35./$79. 



Technology 



the Color Computer Frontier 





Floppy Drive Systems 

The Highest Quality for Years of Service 
Drive Systems (Half Height, Double Sided, 

Direct Drives) 3> I 99. 

Drive systems complete with drive, controller, legal DOS, cable, case, 
power supply, and manual 

Drive 1 Systems (Half Height, Double Sided, 
Direct Drives) $1 29. 

New 3.5", 720K Drives for OS-9 with case 



& Power Supply 



$169. 



Drive 1 Systems have drive, case, power supply. (You may require op- 
tional cable and/or DOS chip to use) 

Special for 0/1 Combos (Drives 
0,1,2,3) $295. 



HALF- HEIGHT DRIVE 
UPGRADES FOR RS HORIZON- 
TAL CASES 

Why only double the capacity of your 
system when you can triple in the same 
Case? Kit includes: double-sided to fit 
your case, chip to run both sides of new 
drive, hardware, and detailed instruc- 
tions. Easy! Takes only 5 minutes! 

Model $11 9. Model $129. 

500 501 or 502 



All drives are new and fullv assembled. 
We ship only FULLY TESTED and 
CERTIFIED at these low prices. We 
use Fuji, YE Data, and other fine 
brands. No drives are used or surplus 
unless otherwise stated to you when 
you order. We appear to be the one of 
the few advertisers in Rainbow who 
can truly make this claim. We have 5 
years experience in the CoCo disk 
drive market! We are able to provide 
support when you have a problem. 



Drives 1 Year Warranty 



OWL Phones 

Order Numbers (only) 

1-800-245-6228 

1-215-682-6855 

Fax: 1-215-837-1942 

Technical Help 

1-215-837-1917 



OWL WARE Software Bundle 



Disk Tutorial/Utilities/Games 
DISK TUTOR Ver 1.1 

Learn how to use your disk drive from 
this multi-lesson, machine language 
program. This tutor takes you through 
your lessons and corrects your mistakes 
for a quick, painless disk drive introduc- 
tion. (This professionally written tutor 
is easily worth the bundle's total price.) 

3 UTILITIES 

A copy verify, copy, and DOS utility. 

2 GAMES 

We will select 2 games from our stock. 
These are sold for more than $20 each. 



Do not mistake this software wilh cheap 
Public Domain" software which others 
offer. All of this software is copyrighted 
and professional in quality. The tutor is 
unique wilh us and has helped 
thousands of new users learn their disk 
drive. 



only $27.95 

(or even better) 

only $6.95 with 

any Disk Drive Purchase!! 



512K Upgrade 

Again at a popular price. Fully as- 
sembled and tested before shipping. 
Easy to install. Uses fast 120 ns. chips. 

Only $99. 

Now includes memory test. Ram Disk 
Lighting, Printer Lighting, and Back- 
up Lighting. All with an upgraded 
manual exclusive with OWL! 



Our prices include a discount for cash but 
do not include shipping. 

OWL-WARE has a liberal warranty policy. During Ihe warranty 
period, all defective items will be repaired or replaced at cur 
option at no cost to the buyer except tor shipping costs. Call 
our lech number tor return. Return of non-defectrve or un- 
authonzed returns are subiect to a service charge. 



OWL-WARE 

P.O. BOX 116 

Mertztown, PA 19539 



A handy tool for 
testing low-speed 
logic circuits 



Completin 




Last month we covered the de- 
sign of the CoCo Digital Logic 
Analyzer and started its con- 
struction. This month we'll 
finish up with the final con- 
struction, testing and programming of it. 
Let's start with the input and the memory 
circuit. 

Input and Memory Circuit 

The input and memory circuit (shown in 
Figure 1) consists of three chips. IC11 
(74LS244) buffers the input from the cir- 
cuit under test. It is controlled by the HALT 
lead connected to pins 1 and 19. When the 
HALT lead goes high, IC 1 1 goes to the 
high impedance state to prevent overwrit- 
ing memory. 

IC12 and IC13 are 8-bit by 2048-byte 
static random access memories (SRAMs). 
Although more costly than dynamic RAM, 
SRAM is much easier to use when design- 
ing your own peripheral circuitry. The 40- 
pin DIP socket shown in Figure 1 connects 
the analyzer to the interface circuit by means 
of a ribbon cable. 

Figures 1 and 2 show the address and 
data buses as single lines to simplify the 
drawings. The data bus is actually eight 
separate wires designated DO through D7. 
The address bus is actually 13 separate 



Dennis Weide is a communications techni- 
cian for AT& T. His hobbies include de- 
signing, building and programming com- 
puter peripherals for disabled persons. He 
may be contacted at 1 420 1 Marquette N.E., 
Albuquerque. NM 87123. Please enclose 
an SASE when requesting a reply. 



Analyzer 




Photo 1. Top View of Analyzer Circuit Board 

A. 40-pin DIP socket; B.IC12Lo RAM; C.IC13 Hi RAM; D.TTLcrystal oscillator; 
E. Resistors mounted on board; AA. Input, trigger and indicator connector. 



wires designated AO through A 12. When 
wiring the circuits, connect all DO leads 
together, all Dl leads together, etc. Do not 
connect DO lines to any other data lines. 
This holds true for all data and address bus 
lines. 

As with the interface circuit, construc- 
tion of the input and memory circuit should 
be easy. Use the same method you chose 
for the interface circuit and follow the same 
rules for supply and ground leads. Figures 



1 and 2 should be constructed on the same 
circuit board. Photo 1 shows the input and 
memory circuit and the timing and trigger 
circuit mounted on the circuit board inside 
the analyzer case. Photo 2 shows the same 
view with the ribbon cable installed. Photo 
3 shows a close-up view of the test probes 
connected to the eight data inputs, three 
trigger inputs, and analyzer ground. Table 
1 is the parts list for the input and memory 
circuit. 
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DIGITAL LOGIC tmXTJB* 
INPUT fi MEMORY CIRCUIT 



40 PIN 
DIP SOCKET 

USE RIBBON CABLE TO CONNECT THIS SOCKET 
TO Tl€ SOCKET ON THE INTERFACE CIRCUIT 



US 
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CAD BY DENNIS H. WEIDE 



Figure 1 




Timing and Trigger Circuit 

The liming and trigger circuit is shown 
in Figure 2. Again, use the same methods 
and guidelines previously mentioned when 
constructing this circuit. All LED indica- 



tors are shown in this figure. The address 
bus is shown as a single line in this sche- 
matic also. Table 2 shows the bus-to-chip 
assignments for the timing and trigger cir- 
cuit address bus. 



After you've built the circuits shown 
in Figure 3 from last month (the interface 
circuit) and figures 1 and 2, your analyzer 
is ready for testing. You may have noticed 
that the schematics for figures 1 and 2 have 
no power provided to them. I used an 
inexpensive AC-to-DC adapter with an 
output of 5 volts at 500 milliamps. If you 
can't find one. you can use a 9-volt adapter 
with a 7805 regulator chip to provide the 
proper voltage. Four C size nicad batteries 
will also work very well and may be your 
best choice. Table 3 is the parts list for the 
timing and trigger circuit. 

When the analyzer is completely wired 
and inspected, you can test it. With all ICs 
and the TTL oscillator removed from their 
sockets, apply power to the circuit and 
measure the voltage at pins 14 (+5VDC) 
and 7 (GND) of IC 1 . A reading greater or 
less than +5 volts indicates a wiring error. 
Recheck all your work before proceeding. 
Once you measure the proper voltage, fol- 
low the steps below to test the clock circuit, 
clock rate selector, clock source selector, 
and address generator. This test also does a 
check of the HALT and RAM SELECT 
leads. The hardware tested consists of the 
TTL oscillator and 1C4 through IC9. 
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<« GIMWESOFT >» 

A new generation of Color Computer products 



V-Term Terminal 

-Vox, Unix, Mainframe, and BBS systems 
-Vt-100, Vt-52, Vidtex & Ascil emulations 
•Serial port to 2400, RS-232 to 19,200 baud 
-XModeni, XModem-CRC, YModem, ASCII 
-15 entry autodial, 10 programmable macros 
Disk (128k or 512k CoCo 3 only) .... $39.95 

Telepak II RS-232 

A Truly Compatible RS-232 Interface! 
It comes with a 3 foot DB25 cable, gold edge 
contacts, and low power drain (5v) components. 
Telepak II & Manual $49.95 




Xport ^|^ 

The replacement for the Multi-Pak 
Interface is here! Xport is just that, an 
extended port interface that is buffered 
(unlike a Y-Cable), has 3 ports (2 
switchable), and has it's own 12v 
supply for those devices that require 
it. Xport is made with the same 
quality & workmanship as Telepak II 

Xport and Manual $74.95 



Turbo 512k Ram 



V^iM 



Studio Works 



A totally professional Digital Audio Sampler 
that Is second to nonel Studio works features 
point & click, cut & paste, overlay, reverse, 
volume control, sequencing, compression and 



-Fully assembled and tested board 

-Premium 120ns 256x1 memory chips 

-Easy to follow instructions oT J* »w~—» •«•••«», ***•**— *~*u, ,„..,,,.<..,;,.„., ^,„ 

-Fast and easy installation &IUCIIO WOVKS "J* 1 * mu ? h m ?I?„? amoIes "P. , t0 . 1 . 7k/s !S2 n i 

•Complete With 512k Software DIflltal Audio Sampler 

-RamDisk, RamTest, & Print Spooler 



W/O cable - $38.95 



W/cable - $53.95 



Holiday Sale Price >>> $89.95 
0k board w/software ... $34.95 



Vjjj^vJfk. 



Soundtrax 

I The perfect partner for Studio Works! Soundtrax 
is a sound sequencing system that Imports 

I digitized audio samples & provides total control. 
For CoCo 3, mouse/joystk. & disk .... $34.95 



Warrior King $29.95* 

Kung-Fu Dude $24.95 

In Quest of the Starlord $34.95- 
Hint sheet for Starlord $3.95 

Pyramix $19.95- 

Hall of the King 1 2 or 3 $29.95 

Dragon Blade $19.95 

White Fire of Eternity . $19.95 
Champion $19.95 

* CoCo 3 only 



Games 




Kyum-Gai: to be Ninja 

Kyum-Gai: to be Ninja uses the most detailed 
320x200 resolution, 16 color graphics, the 
highest quality digital sound effects, and 
spectacular animation to bring you the greatest 
martial arts game your CoCo 3 has ever seen! 
For CoCo 3, Joystick, 8c disk $29.95 

Paladin's Legacy $24.95 

You will love the feeling of playing an action 
game with great graphics, animation, and sound 
effects, but all the while solving one of the most 
involved adventures yet! CoCo 1,2, or 3 8c disk. 

Sinistaar 512k CoCo 3 .. $34.95 

Experience the fast-paced action of 512k packed 
with spectacular graphics and sound effects! 



CoCo 3 $29.95 ^$^- Suvrfile III ^$fc~ MS/Dos $39.95 

SuprfUe III is a powerful, user friendly, easy to use, multi-purpose 
database! It can be used for Mailing lists, Labels, a Checkbook Manager, 
Shopping lists, Personal items inventory, Audio/Video lists and on and on! 
Features: Add, Delete, Search, , — = r^=^ Sort, Print Labels & Reports. 



Fkeys III (Coco 1,2, 3) $19.95 

Sixarive (Coco 1,2, 3> $16.95 



1 



Locking Plates <c°co 2 or 3) $7.95 
Multi-Label HI < CoCo 3 on 'v> ««■»* 






Toll Free 



1-80O441-GIME 



Order line 



Free 2ND AIR from Midwest to California 

Orders: 9am to 9pm Eastern time 

On-line orders: Delphi's CoCo Sig 

Inquiries & technical assistance: 7pm to 9pm: 



GIMMESOFT 
P.O. Box 421 
Perry Hall, MD 21128 
301-256-7558 



Add $3.00 for shipping and handling 
Add $3.00 for COD (USA only) 
MD residents add 5% sales tax 

VISA/MC/Check/Money Order/COD 



Part# 


Description 


ICII 


74LS244 


IC12-ICI3 


2064 Static RAM 


C3-C5 


.1 MFD 


Misc 


PC board, wirewrap sockets, wire. 




40-pin DIP wirewrap socket 


Note: For 10 MHz operation. SRAM chips must have an 


access speed of IOC) ns or faster. 


Table 1. 1 


npul & Memory Circuit Parts List 



Bit 


1C# 


Pin 


A0 


6 


3 


Al 


6 


2 


A2 


6 


6 


A3 


6 


7 


A4 


7 


3 


A5 


7 


2 


A6 


7 


6 


A7 


7 


7 


A8 


8 


3 


A9 


8 


2 


A10 


8 


6 


All 


8 


7 


AI2 


9 


3 


Table 2 


. Address Bus-to-Chip 


Connections for Figure 2. 



Part# 


Description 


IC1 


74LS20 


IC2.IC3 


74LS00 


IC4 


74161 


IC5 


74151 


IC6-1C9 


74193 


CI-C6 


.1 MFD 


C7 


1 MFD 


C8-CI3 


.1 MFD 


CRI-CR8 


Red LED 


R1-R6 


330 ohm. <A Wan 


R7 


1 megohm. '/i Watt 


R8 


330 ohm. 'A Watt 


Misc 


PC board. IC sockets, wire. 




TTL oscillator ( 1 0MHz: available 




from Jameco) 


Table 3. Tim 


ing & Trigger Circuit Parts List 



-2*> 



^> 




» 



Photo 3. Analyzer Test Inputs 

A. Trigger inputs 1 through 3 and ground; B. Data inputs 
A through H (bits through 7). 



Test 1 

1 — Be sure power is off. Plug the TTL 
oscillator and IC4 through IC9 into their 
respective sockets. 

2 — Connect the logic indicator ( from last 
month) to the analyzer board per Table 4. 

3 — Connect Pin 4 of IC2 to logic High. 

4 — Connect Pin 8 of IC2 to Pin 5 of IC6. 

5 — Connect Pin 14 of IC9 to logic High. 

6 — Plug the interface circuit into the CoCo 
ROM port. (Be sure power is off.) 

7 — Connect interface circuit to the ana- 
lyzer using 40-pin ribbon cable. 

8 — Turn CoCo power on. 

9— POKE &HFF43. 145 and press ENTER to 
program the 8255 PPI chip. 
10 — POKE &HFF42.X (where X is the value 
listed in Table 5). 

1 1 — Referto Table 5 for LED indications. 
H designates High. L designates Low. 

12 — If results obtained in Step II are 



correct, remove the logic High from Pin 14 
of IC9. The following sequence of events 
should occur: 

A. Probes4. 5 and 6 should remain in the 
same state as shown in Table 5. 

B. Probes 2 and 3 should flash until 
Probe 1 goes High. 

C. When Probe I goes High, probes 2 
and 3 should go Low. 

Repeat the procedure from step 10 for each 
value of X shown in Table 5. Each succes- 
sive test should cause probes 1 , 2 and 3 to 
flash at a rate slower than the previous test. 
After the analyzer has passed this test, 
proceed to the address generator and trig- 
ger circuit test shown below: 

Test 2 

1 — With all power off. unplug the ribbon 



Probe IC# Pin# 


1 9 6 


2 9 2 


3 9 3 


4 5 9 


5 5 10 


6 5 II 


7 n/c 


8 n/c 


+5v 12 26 


GND 12 7 


Table 4. Logic Indicator Connections 


to Analyzer Circuit for Test 1 
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X 


Probes 












Freq 


Value 


1 


2 3 


4 


5 


6 


7 


8 


KHZ 





L 


L L 


L 


L 


L 


X 


X 


1000(1 MHZ) 


16 


L 


L L 


L 


L 


H 


X 


X 


500 


32 


L 


L L 


L 


L 


L 


X 


X 


250 


48 


L 


L L 


L 


L 


H 


X 


X 


125 


64 


L 


L L 


L 


L 


L 


X 


X 


62.5 


Note: X= 


sDONT CARE 


















Table 5 


. Logic Indicator Results When 






Value X is 


Poked into Address $FF4 


2 



cable from the analyzer board. 

2 — Connect the logic indicator to the 
analyzer board as shown in Table 6. 

3 — Connect Pin 1 1 of IC4 to Pin 5 of IC2 
using a clip cord. 

4 — Set the clock source switch to the 
OCLK position. 

5 — Remove the following ICs from their 
sockets: IC1.IC3, IC1 1. IC12. IC13. 

6 — Connect Pin 2 of IC 10 to a logic High. 

7 — Connect Pin 14 of IC9 to ground. 

8 — Turn the analyzer power on. All logic 
indicators should be Low. If not. momen- 
tarily remove the ground from Pin 14 of the 
IC9. 



9 - — When all logic indicators indicate 
Low. momentarily ground Pin 2 of IC13. 

10 — Probe 8 should go High and probes 7 
through 1 should count in binary (each 
LED should flash once for every two flashes 
of the LED to its right). When Probe 1 goes 
High, probes 2 through 7 should go Low. 
Then Probe 8 should go High. 

1 1 — Repeat from Step 8 until satisified 
that the circuit works correctly. 

This test checks the ENABLE gate 
generated by the 555 timer (IC 1 0). the TTL 
oscillator, the countdown circuit (IC4). the 
address generator (IC6-IC9). and the HALT 



circuit, which is part of IC2. 

The Programs 

Now that you've built and debugged 
your analyzer hardware, it's time to tackle 
the software. Program Listing 1 is the BAS- 
IC program required to use the analyzer. I'll 
just cover it briefly. 

Line 140 clears the necessary string 
memory and protects the addresses where 
the machine language programs will be 
located. It also sets the printerbaud rate and 
programs the 8255 PPI internal register for 
use by the analyzer. The value poked into 
the internal register determines which ports 
are inputs and which are outputs. 

Lines 1 80 through 200 contain the data 
for the three machine language programs 
used to speed up data processing. Program 
listings 2. 3 and 4 are the source code for 
these programs. It's not necessary to type 
them into the computer. Lines 2 10 through 
290 poke the machine language data into 
memory. The program listings are shown 
here for your information only. 

Lines 300 through 320 create the strings 
necessary for drawing the screen reference 
information. 

Several commands (listed in Table 7) 
are included in the program. They are shown 
below with a brief explanation. Each com- 




ORIGINAL MODEL - Colorware Hi-Res, 
Tandy Hi ♦ Low Res, cassette jack. 

ECONOMY model - Tandy Hi ♦ Low Res. 

ORIGINAL JtU ECONOMY JZ/ 

HAWKSoft keyboard extend cable S25 

DOMINATION "risk'-like war game 118 

MYD0S the extended DOS for you! SIS 

HAWKSoft P.O. Box 7112 Elgin, II 60121 

(708) 742-3084 eves and ends 

SASE for more info and price list. 

8/H ( US ft CAN ) always included 



BYTE BACK 

AT TAXES 

WITH TRY-O-TAX 

• available for CoCo, MSDOS, TRS-80 



revised for '89 law changes 



prompts for easy guided use 



calculates 1040, 1040A, 2441, 2106, 6502 



calculates schedules A-F, SE 



computer generated substitute forms 



FREE TAX ESTIMATE PROGRAM 



PERSONAL SHORTFORMALONES15.CO NO CREDIT 

CHECKS WELCOME CARDS, C.O.D 

+ 3.00 
SHIPPING 



$44.99 



TRY-0-3YTE, 1008 Alton Circ:e. Florence, S.C. 29501 . (803) 662-9500 

-order 1-800-476-4265 only— 1 
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Logic Probe 


IC# Pin# 


Lead Desig. 


1 


8 3 


A8 


2 


8 2 


A9 


3 


8 6 


AiO 


4 


8 7 


All 


5 


9 3 


A12 


6 


9 2 


A13 


7 


9 6 


A14 


8 


10 3 


ENABLE 


+5V 


10 8 


VCC 


GND 


10 1 


GND 


Table 6. 


Logic Indicator Connections 



Key to Press 


Function 


A 


Again - slart a new test 


C 


Cursor - add cursor to screen 


E 


Erase - erase last cursor increment 


1 


Increment - select cursor increment 


T 


Timeslot - select a new lime slot 


X 


Exit - exit basic program 


Left Arrow 


Move Left - move cursor left 


Right Arrow 


Move Right - move cursor right 




Table 7. Commands 



Test Lead 


ROM Pin 


Lead Desig. 


T3 


36 


scs 


A 


36 


scs 


B 


18 


R/W 


C 


6 


ECLK 


D 


19 


A0 


E 


20 


Al 


F 


10 


DO 


G 


11 


Dl 


H 


12 


D2 


GND 


33 


GND 


Table 8 


. Analyzer Test Connections 



FACTOR Variable 


S3BAD 


TIMESLOT Variable 


S3BAE - S3BAF 


ZER0BUF.ASM 


S3BBO - S3BBB 


M0VESRAM.ASM 


S3BCO - S3BDF 


FACTOR. ASM 


S3BE6 - S3BFA 


Display Buffer 


S3COO - S3CEF 


DRAM Buffer 


$3DOO - $7CFF 


Table 9. Program, Variable and Buffer Locations 



mand requires pressing only a single key to execute it. 

The Again command allows you to start a complete new 
test by pressing the A key once. All analyzer and CoCo 
buffers are erased and the analyzer is reset for a new test. You 
are prompted for all the necessary information again. 

The Cursor command places a cursor (vertical line) al the 
center of the screen when the C key is pressed. The cursor can 
be used to compare traces or for measuring timeslots. Mul- 
tiple cursors can be placed on the screen by pressing C once 
for each new cursor. 

The Erase command erases the last cursor displayed on the 
screen when the E key is pressed. Once an additional cursor 
has been placed on the screen, all cursors previously dis- 
played cannot be moved or erased. 

The Increment command toggles the cursor increment 
value. The initial increment value is set at 1. Each time the 
arrow key is pressed, the cursor moves one timeslot. When 
the I key is pressed, the increment value changes to 10. 
Therefore, each lime the cursor is moved, it moves ten 
timeslots. The increment value can be toggled back and forth 
by pressing I. 

The Timeslot command returns ihe program to the text 
screen and prompts you for the new timeslot each time the T 
key is pressed. This allows you to view different areas of ihe 
collected data. The timeslot command only affects the screen 
display and has no effect on data already collected. 

The Exit command exits the BASIC program by pressing 
the X key. You can restart the program where you left ii by 
typing C0NT and pressing ENTER. 

The left arrow moves the cursor left by ihe amount of the 
increment value each time the key is pressed. The right arrow 
moves the cursor to the right in a similar fashion. 

A Sample Display 

Now let's see what a screen display looks like. Figure 3 is 
a printout of the actual screen display for the final test of the 
Digital Logic Analyzer. Eight traces of dala are displayed on 
the screen at one time. The lead that corresponds toeach trace 
is shown on the left of the screen (letters A through H). The 
values and 1 shown indicate the Low (0) and High ( 1 ) logic 
levels. As an example, on ihe A trace. Ihe trace starts oul low 
Ihen almost immediately jumps high for one pulse and relums 
low again for a longer period. 

The bottom line of the screen displays the siarling timeslot 
(shown as 00000), Ihe cursor increment value (shown as 01 ), 
the cursor timeslot (shown as 00144) and the end timeslot 
(shown as 00239). The vertical line from the top to the bottom 
of the screen is the cursor position, currently at Timeslol 144. 

Final Testing of the Analyzer 

Before we can assume the analyzer is useful, ii must be 
tested on a circuit lhat produces known results. Therefore, 
we'll lest it using anolherCoCo and compare ihe results with 
information provided in ihe CoCo service manual. 

Addresses SFF40 through SFF5F are for use wilh the 
ROM port. Whenever the CoCo reads or wriles to any address 
in this range, it sets the SCS lead low during the operation. To 
test the analyzercircuitry. we'll use a program thai repeatedly 
writes all ones (255) lo Address SFF40. Since BASIC is an 
extremely slow language, the tesl program must be writien in 
machine language. Program Listing 5 is a BASIC program thai 
pokes a short ML program into memory and executes il. Pro- 
gram Listing 6 is the source code for the basic version in 
Listing 5. 
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Figure 3 



Analyzer 
Procedure 



Test 



Note: For (he pur- 
pose of this test, the 
CoCo used as the 
analyzer processor 
is called CoCo A. 
The CoCo used as 
the test circuit is 
called CoCo B. 



Analyzer Verification Tests 

If you don't have a second CoCo avail- 
able to you. you can use any TTL circuit 
that will produce known results for com- 
parison. Follow the steps listed below if 
you want to verify your analyzer using my 
method. 



1 — All power 
should be off. Plug 
the analyzer ROM 
pack into the CoCo 
A ROM port. 

2 — Turn on ana- 
lyzer power. 

3 — Turn on CoCo 
A power. 

4 — Load analyzer 
program from cas- 
sette into CoCo A. 

5 — Connect the analyzer trigger and data 
leads to the ROM port pins of CoCo B as 
per Table 8. 

6 — Turn on CoCo B power. 

7 — Key Listing 5 into CoCo B. Do not run 
it yet. 

8 — Run the program in CoCo A and select 



zero (0) for the clock speed prompt if you 
are using a 10 MHz TTL oscillator chip. 

9 — Set the analyzer clock source selector 
switch to the OCLK position per the CoCo 
A prompt. On the analyzer, the OCLK. 
CLEAR and LO RAM LEDs should be 
lighted. 

10 — On CoCo A. press enter. The OCLK. 
Write and LO RAM LEDs should now be 
lighted on the analyzer. 

1 1 — Run the program in CoCo B. The 
analyzer will trigger when the SCS lead 
goes Low. The following LED indications 
will take place. This may happen very fast 
and you may have to execute several tests 
to verify all conditions. 

Enable will light 
Lo RAM will extinguish 
Hi RAM will light 
Bail will light 
Clear will light 
Hi RAM will extinguish 
Lo RAM will light 
Enable will light 

CoCo A will display a System Halt 
Detected message 

12 — On analyzer, set clock source selector 
to CCLK per CoCo A prompt. CCLK. 
CLEAR and LO RAM should be lighted. 




Make Some Handy Tandy 
Connections. 



The largest group of Tandy" users in the world 
shares its problems and solutions online every day in 
CompuServe's Tandy Forums. And you can join them. 

You'll find users of every kind of Tandy computer, 
who have worked the bugs out of any application 
you're likely to encounter - from CoCo games and the 
OS-9 operating system to the most advanced program- 
ming problems for MS-DOS" desktops and laptops. 

Tandy Forums are the first place you'll hear 
about new products, sometimes even as they're being 
developed. Find out which software is best for your 



applications. And keep up with the latest information 
on upgrades as soon as they're available. There's no 
better way to get more out of your Tandy. 

lb join CompuServe, see your computer dealer 
To order direct or for more information, call 
800 848-8199. If you're already a member, type 
GO TANDYNET at any ! prompt. 



CompuServe" 
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32K Extended 



Editor's Note: The assembly language 
listings presented are for reference 
only and will not appear on RAINBOW 
ONDISKITAPE. 




190 40 

290 72 

350 220 

410 119 

530 78 

600 34 

720 148 

800 206 

920 230 

1030 102 

1160 220 

1320 142 

1450 82 

1580 122 

1710 29 

1830 205 

END 210 



Listing 1: ANALYZER 

• COPYRIGHT 1990 FALSOFT. INC 

100 ' DIGITAL LOGIC ANALYZER 

110 " BASIC PROGRAM 

120 ' WRITTEN BY DENNIS H. WEIDE 

130 ' 

140 CLEAR150.&H3B00:POKE150.1:PO 

KE&HFF43.145: 'PROGRAM 8255 

150 CLS:PRINT" DIGITAL LOGIC ANA 

LYZER PROGRAM" 

160 PRINTTAB(7)"BY DENNIS H. WEI 

DE" 

170 DIM GR(20).8L(5).B1(13) 

180 DATA 4F.8E.3D.0.A7.80.8C.7C. 

FF.2F.F9.39 

190 DATA 8E.3D.0.4F.B7.FF.41.B6. 

FF.40.A7.80.86.4.B7.FF.41.4F.B7. 

FF.41.B6.FF.40.A7.80.8C.7C.FF.2F 

.ED. 39 

200 DATA BE.3B.AE.10.8E.3C.0.B6. 

3B.AD.A4.80.A7.A0.10.8C.3C.EF.2F 

.F3.39 

210 FORX-&H3BB0 TO &H3BBB 

220 READA$:A$-"&H"+A$ 

230 POKEX.VAL(A$):NEXTX 

240 FORX-&H3BC0 TO &H3BDF 

250 READA$:A$-"&H"+AS 

260 POKEX.VAL(A$):NEXTX 

270 F0RX-&H3BE6 TO &H3BFA 

280 READA$:A$-"&H"+A$ 

290 POKEX.VAL(A$):NEXTX 

300 FORX-0TO9:READN$(X):NEXT 

310 DATA U8R5D8NL5BR3.R2LU8NGBR4 

BD8.NR5UE5U2L5NDR5BR3BD8.NUR5U4N 

L4U4L5DUBR8BD8.BU4NU4R5U4D8BR3 

320 DATA UDR5U5L5U3R5BR3BD8.R5U4 

L5D4U8R5DBR3BD7.UE5U2L5NDBR8BD8. 

NR5U4NR5U4R5D8BR3.NUR5U8L5D4R5BR 

3BD4 

330 EXEC&H3BB0:POKE&HFF41.2: 'ZER 

OBUF & CLR FF 

340 PRINT:PRINTTAB(7)"ENTER CLOC 



K SPEED":PRINT 

350 PRINTTAB(10)"0. DIV BY 1":PR 

INTTAB(10)"1. DIV BY 2":PRINTTAB 

(10)"2. DIV BY 4":PRINTTAB(10)"3 

. DIV BY 8":PRINTTAB(10)"4. DIV 

BY 16" 

360 PRINTTAB(10)"";:INPUT"SPEED 

>";S 

370 S$-"&H"+HEX$(S)+"0":S-VAL(S$ 

):P0KE&HFF42.S+128 

380 PRINT:PRINTTAB(7)"SET SWITCH 

TO OCLK" 
390 PRINTTAB(5)"";:LINEINPUT"PRE 
SS <ENTER> TO BEGIN":B$ 
400 P0KE&HFF41.9:'ENABLE FF & SR 
AM WRITE 

410 I$(1)-"BM104.190;NR5U8R5D8BR 
3R2LU8G" 

420 I$(2)-"BM104.190;R2LU8NGBR4R 
5D8L5U8" 
430 ' 

440 • CALCULATE START OF TRACE 
450 • 

460 FORX-0TO7 
470 P$(X)-"BM15."+STRSC22*X+20)+ 

480 NEXTX 

490 ■ 

500 ' WAIT FOR HALT & ENTER INFO 

510 ■ 

520 IFPEEKUHFF42)AND1THEN530ELS 

E520: 'CHECK FOR HALT 

530 POKE&HFF42.S:CLS:PRINT:PRINT 

TAB(6)"SYSTEM HALT DETECTED": PRI 

NT:PRINT 

540 POKE&HFF41.2:FORX-1TO1000:NE 

XT: 'CLR SRAM WRITE & FF 

550 PRINTTAB(7)"SET SWITCH TO CC 

LK" 

560 PRINTTAB(9)"PRESS <ENTER>": 

570 LINEINPUTB$:EXEC&H3BC0:'MOVE 

SRAM TO DRAM 
580 PRINT:PRINTTAB(6)"";:LINEINP 
UT"ENTER TIME SLOT>";TS$:TS-VAL( 
TS$) 

590 IFTS<0ORTS>16144THENTS-16144 
600 PMODE4.1:PCLS5:COLOR0:POKE65 
495.0 

610 GET(10.10)-(23.20).BL.G 
620 GET(143.181)-(182.191).B1.G 
630 • 

640 ' DRAW A-H INPUT DESIGNATION 
S 

650 ' 

660 DRAW"BM0.18:U4E2F2D4U2L4" 
670 DRAW"BM0.40:U6R3D3NL3RD3L4" 
680 DRAW"BM0.62;R4NUL4U6R4D" 
690 DRAW"BM0.84:U6R3FD4GL3" 
700 DRAW"BM0.106:NR4U3NR3U3R4" 
710 DRAW"BM0.128:U3NR3U3R4" 
720 DRAW"BM0.150;R4U2NLD2L4U6R4D 



730 DRAWBM0.1 

740 DRAWBM20. 

D2BR3R3BD2L3" 

750 DRAWBM90. 

BD3R3BD2L3" 

760 DRAWBM200 

R3BD3R3BD2L3" 

770 DRAWBM130 

3BD2R3BD2L3" 

780 DRAWBM144 

90 

790 DRAWBM34. 



72;U6BR4D3NL4D3" 
190:NUR5U4L5U4R5DB 

190:R4L2U8NL2R2BR3 

.190;NR5U4NR4U4R5B 

,190:R5UDL5U8R5DBR 

.190:":T-0:GOSUB13 

190:":T-TS:GOSUB13 



90 

800 DRAW"BM215.190:":T-TS+239:GO 

SUB1390 

810 I-1:DRAW"X1$(1);" 

820 * 

830 • DRAW LOGIC LEVEL INDICATOR 

S 

840 ' 

850 A$-"R2LU5G" 

860 B$-"U5R3D5L3" 

870 FORX-0TO7 

880 C$-"BM10."+STR$(22*X+12)+" : " 

+A$ 

890 D$-"BM9."+STR$(22*X+22 )+":" + 

B$ 

900 DRAW"XC$:":DRAW"XD$:" 

910 NEXT 

920 ' 

930 • CALCULATE TIME SLOT OFFSET 

940 " 

950 TS-TS+15616:T1-INT(TS/256):T 

2-(TS/256)-INT(TS/256):T2-T2*256 

960 ' 

970 • LOAD MEMORY WITH ML PARAME 

TERS 

980 • 

990 P0KE&H3BAE.T1:P0KE&H3BAF.T2: 

•PASS TIMESLOT 

1000 FORY-0TO7 

1010 POKE&H3BAD.2"Y:'PASS POWER 

OF 2 

1020 EXECSH3BE6: 'FINO BIT SET 

1030 SCREEN1.1 

1040 IFPEEKUH3C00)>0THENLA-1ELS 

ELA-0 

1050 DRAW"XP$(Y) : " 

1060 • 

1070 ' READ BUFFER AND DRAW TRAC 

E 

1080 ' 

1090 1FLA-1THENDRAWBU10" 

1100 FORX-&H3C00 T0&H3CEF 

1110 A-PEEK(X) 

1120 IFA>0THENA-1 

1130 IFA-1ANDLA-1THENDRAWR" 

1140 IFA-1ANDLA-0THENDRAW"U10R" 

1150 IFA-0ANDLA-0THENDRAWR" 

1 160 I FA-0ANDLA-1THENDRAWD10R" 

1170 LA-A 

1180 NEXTX. Y:POKE65494.0 

1190 ' 

1200 ' COMMAND INPUT SECTION 

1210 ' 

1220 1$-1NKEY$ 

1230 IFI$-""THEN1220 

1240 IFI$-"C"THEN1500 

1250 IFI$-CHR$(8)THEN1590 

1260 IFI$-CHR$(9)THEN1680 

1270 IFI$-"A"THENCLS:GOTO330 

1280 IFI$-"T"THENPRINT:GOTO580 

1290 IFI$-"E"THEN1820 

1300 IFI$-"X"THENSTOP 

1310 IFI$-"I"THEN1320ELSE1220 

1320 IF 1-1 THEN 1-10 ELSE 1-1 

1330 PUT(103.180)-(116.190).BL.O 

R 

1340 IF 1-1 THEN DRAW"XI$(1 ) ;" E 

LSE DRAW"XI$(2);" 

1350 GOTO1220 

1360 ' 

1370 ' PRINT TIMESLOTS 

1380 ' 

1390 M$-STR$(T):M-LEN(M$)-1 

1400 M$-RIGHT$(M$.M) 
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Color Computer I, II, III 
Free Software for Drive Systems 

CoCo Checker.. .Test roms, ram*, disk drives and & controller printer, keyboard cassette A 
Tape/Disk Utility.. Transfers disk to tape and tape to disk. 



139 Drive 1/9 Drive 269 DrlveO&t 

• Full Ht Drive • Double Sided Slim Line Drivo . 2 Double Sided Slim Line Drive 

• Single Case • Case holds 2 slim line drives * Case holds 2 slim line drives 

• Heavy Duty Power Supply • Heavy Duty Power Supply • Heavy Duty Power Supply 

• 2 Drive Cable • 2 Drive Cable • 2 Drive Cable 

• Gold plated contacts • Gold plated contacts • Gold plated contacts 

• Controller & manuals • Controller & Manuals • Controller & Manuals 

Other Drive Specials 

Full Ht Drive 89 95 

I 9 Full Ht Drive Ps/Case 1 29 95 

2nd Drive _,. , , „ OO 95 

for new Radio Shack Slim Line Drive »» 

includes: S l im Line Drive Ps /case...1 39 9S 

• Slim Line DS/DD Drive OOO 95 

• Cabling & Instructions 2 Slim Drives Ps/Case ZOv 

• Mounting Hardware _, , _ EA95 

Disk Controller 59 




Single Ps & Case 44 95 

Dual l$ht Ps & Case 54 95 

Disk Controller 59 95 

Disk Controller w/ROM 79 95 

Memory Upgrades 

with CoCo 3 CALL 



Quality Add-On's for Tandy® 1000, SX, TX, SL, TL, 3000, 4000 



20 Meg Drive Card 65 MS $269.95 

20 Meg Drive Card 45 MS $289.95 

32 Meg Drive Card 45 MS $329.95 

40 Meg Drive Card 60 MS $369.95 

49 Meg Drive Card 32 MS $419.95 

64 Meg Drive Card 23 MS $569.95 

Call for current pricing 




Tandy EX.HX- 



384K Memory 
Expansion Card 

Includes 384K 

$189.95 





Tandy EX, HX 




External 


Hard Drive Kits 


10 Meg 
20 Meg 
30 Meg 
40 Meg 


$299.95 
$389.95 
$429.95 
$499.95 



Tandy EX. HX ■ 



360K or 720K 
External 
Floppy 

For EX or HX 

$139.95 



r— 1000. SX, TX. SI. Tl. 3000. 4000 — I 



2nd Floppy 

360K teac $119.95 

720K Mitsubishi $99.95 
3Vj" Mitsubishi $119.95 



1000. 1000A- 



Memory Board 
with 512K 

Expands memory to 640K 

$199.95 



— 1000. SX, TX, SI, Tl 

Hard Drive 
Controller 

Will run 1 or 2 Hard Drives 

Supports dnves up lo 

120 Megabytes 

$99.95 



r 1000, SX, TX, SI. TL. 3000. 4000— | 

Memory 
Upgrades 

From 

$50 



I Tandy- 


1000 sl/2, a/a 1 


IDE Drives 


20 Meg 


CALL 


40 Meg 


CALL 



Tandy" is a registered trademark ol Tandy Corporation 

TRUE DATA PRODUCTS 

P.O. Box 347, 115 So. Main Street 
Uxbridge, MA 01569 

Tel. 508-278-6555 
1-800-635-0300 

Hours: 9 a.m.-6 p.m., Sat. 10 a.m. -4 p.m. 




1ST QUALITY 

MERCHANDISE 

QUAUTY 

CUSTOMER SERVICE 

508-278-6555 
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13 — On CoCo A, press ENTER. Data is 
now being transferred from the analyzer to 
CoCo A. ENABLE. CCLK and HI RAM 
should be lighted. Data transfer is complete 
when CoCo A displays the Enter Timeslot 
prompt. 

14 — Enter the timeslot you want to view. 
For this test, enter 0. Data is processed and 
the screen display is drawn. 

Analyzing Test Results 

Now that our data is displayed on the 



1410 M$-"0000"+M$ 
1420 M»-RIGHT$(M$.5) 
1430 F0RR-1T05 
1440 V-VAL(MID$(M$.R.l)) 
1450 DRAW"XN$(V):" 
1460 NEXTR:RETURN 
1470 ' 

1480 ' DISPLAY CURSOR ON C COMMA 
ND 

1490 " 

1500 G1-127:G2-129: Ll-128 
1510 GET(G1.0)-(G2.180).GR.G 
1520 LINE(L1.0)-(L1.180).PSET 
1530 PUT(143.181)-(182.191).B1.0 
R 

1540 GOSUB1770:GOTO1220 
1550 GOTO1220 
1560 • 

1570 ' MOVE CURSOR LEFT 
1580 " 

1590 PUT(G1.0)-(G2.180).GR.OR 
1600 Gl-Gl- I :G2-G2- 1 : Ll-Ll - 1 
1610 IF GK14 THEN G1-14:G2-16: L 
1-15 

1620 GET(G1.0)-(G2.180).GR.G 
1630 L!NE(L1.0)-(L1.180).PSET 
1640 GOSUB1770:GOTO1220 
1650 ' 

1660 " MOVE CURSOR RIGHT 
1670 * 

1680 PUT(G1.0)-(G2. 1801.GR. OR 
1690 Gl-Gl+I :G2-G2+I : Ll-Ll+I 
1700 IF Gl>253 THEN Gl-253:G2-25 
5:Ll-254 

1710 GET(G1.0)-(G2.180).GR.G 
1720 LINE(L1,0)-(L1.180).PSET 
1730 GOSUB1770:GOTO1220 
1740 • 

1750 ' UPDATE CURSOR LOCATION 
1760 • 

1770 PUT(143.181)-(182.191).B1.0 
R 

1780 T-TS+G1- 15616- 14 :DRAWBM144 
.190;":GOSUB 1390:RETURN 
1790 • 

1800 ' ERASE CURSOR 
1810 • 

1820 PUT(G1.0)-(G2.180).GR.OR 
1830 T-0:G1-127:G2-129:L1-128:PU 
T(143.181)-(182,191).B1.0R:DRAW" 
BM144.190:":GOSUB1390:GOTO1220 
1840 POKE65497.0:FORX-&H3D00 TO 
&H7CFF 

1850 POKEX.PEEK(&HFF40) 
1860 POKE&HFF41.4:POKE&HFF41.0 
1870 NEXT:POKE65496.0:RETURN 
1880 POKE&HFF41.0:FORX-&H3D00 TO 
&H7CFF 
1890 PRINTPEEK(X).PEEK(&HFF40) 
1900 POKE&HFF41,4:POKE&HFF41.0 
1910 NEXT 



screen, we must analyze it. Let 's look again 
at Figure 3. the screen display for this test. 
First we must know what to look for in our 
results. We know the SCS lead only goes 
low when the CoCo reads or writes to 
Address SFF40. The test program repeat- 
edly writes a 255 to that address. Test lead 
A and trigger lead T3 are connected to the 
SCS lead. The T3 trigger lead requires a 
low signal when active. When SCS goes 
low. the analyzer triggers and data collec- 
tion begins. 



In Figure 3. we can see that test lead A 
starts low. goes high and then low again. 
We have to disregard this first occurance 
because the analyzer circuits are in transi- 
tion when first triggered so the data is not 
accurate. Since we're looping through the 
test program, we can use all subsequent 
occurences. Around the middle of the screen 
display, we can see that the SCS lead again 
goes low. indicating the CoCo is writing to 
Address SFF40. We'll use this as our first 
valid test. 



Listing 2: ZEROBUF 






00100 


*** 


ZEROBUF/ASM 


*** 


00110 


*** PROGRAM TO 


ZERO OUT 


*** 


00120 


*** 


THE DRAW 


BUFFER 


*** 


00130 


*** 


WRITTEN BY 


*** 


00140 


*** 


DENNIS H 


WEIDE 


*** 


00150 










00160 










00170 










00180 










00190 


BUFFER EQU 


$3D00 




00200 


ENDBUF EQU 


$7CFF 




00210 










00220 










00230 




ORG 


$3BB0 




00231 










00232 










00233 










00240 




CLRA 




SET AREG TO ZERO 


00250 




LDX 


//BUFFER 


GET START ADDR OF BUFFER 


00260 


LOOP 


STA 


.X+ 


ZERO BUFFER OUT 


00270 




CMPX 


#ENDBUF 


IS THIS END OF BUFFER? 


00280 




BLE 


LOOP 


IF NO-BRANCH TO LOOP 


00290 




RTS 




IF YES-RETURN TO BASIC 


00300 




END 







Listing 3: MOVESRAM 






00100 


*** 


MOVESRAM/ASM 


*** 


00110 


*** 


PROGRAM TO MOVE 


*** 


00120 


*** 


SRAM MEMORY TO 


*** 


00130 


*** 


DRAM BUFFER 


*** 


00140 


*** 


WRITTEN 


BY 


*** 


00150 


*** 


DENNIS H. 


WEIDE 


*** 


00160 










00170 










00180 










00190 










00200 




ORG 


$3BC0 




00210 










00220 










00230 










00240 


START 


#$3D00 


START OF DRAM BUFFER 


00250 




CLRA 




ZERO AREG 


00260 




STA 


$FF41 


SET TRIGGER LOW 


00270 




LDA 


$FF40 


GET 1ST BYTE OF SRAM 


00280 




STA 


.X+ 


STORE IN 1ST BYTE OF DRAM 


00290 


LOOP 


LDA 


#$4 


SET TRIGGER HIGH 


00300 




STA 


SFF41 




00310 




CLRA 




SET TRIGGER LOW 


00320 




STA 


SFF41 




00330 




LDA 


$FF40 


GET NEXT SRAM BYTE 


00340 




STA 


.X+ 


STORE IT IN NEXT DRAM BYTE 


00350 




CMPX 


#$7CFF 


CHECK FOR LAST DRAM BYTE 


00360 




BLE 


LOOP 




00370 




RTS 






00380 




END 
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Note thai the R/*W lead (Trace B) goes 
low. At the same time, the address bits AO 
and Al (traces D and E) are low and data 
bits DO. Dl and D2 (traces F. G. H) are 
high. These are the correct lead states for 
Address SFF40 and a data value of 255. 
Test lead C was connected to the E clock 
lead and should show a square wave pattern 
throughout the 16.384 timeslots. You can 
continue to test the analyzer by changing 
the values of the data and address. Editing 
Line 20 of the test program in CoCo B 
allows you to change the screen display and 
verify the test data. 

Example: 

20 DATA 86.FF.B7.FF.40.20.F9 'WR 

ITES 255 DEC. TO $FF40 

20 DATA 86.00.B7.FF.40.20.F9 'WR 

ITES DEC. TO SFF40 

20 DATA 86.00.B7.FF.41.20.F9 "WR 

ITES DEC. TO JFF41 



Analyzer Errors 

Because the analyzer is a simple test set. 
it should not be considered highly accurate. 
When data is collected in the analyzer 
SRAM, the memory is constantly enabled 
so data can be written into SRAM during 
the entire clock cycle. Since data leads may 
be in the high-to-low or low-to-high transi- 
tion state in the middle of the clock cycle, 
data states may be incorrect for a single 
timeslot. This can be seen when looking at 
the E clock (Trace C) signal. It doesn't 
always appear to be symmetrical, even 
though it is. A higher analyzer clock speed 
reduces the amount of such an error. Over- 
all, however. 1 think the accuracy of the 
Digital Logic Analyzer more than meets 
the requirements for designing and testing 
CoCo applications and other low-speed 
TTL circuits. 

And Finally 

While the analyzer may not be an appro- 
priate piece of test equipment for testing 
the multi-million dollar computers on the 
space shuttle Discovery, it is useful for 
most low-speed logic circuit testing you 
may have to do. By adding an additional 
CMOS buffer to the input circuit, the ana- 
lyzer can be used for CMOS testing as well. 

I'm sure a lot of you will find this project 
too complicated for your current skill lev- 
els. Why not set this article aside until such 
time that you have gained the necessary 
knowledge and skills to understand and 
build this project? 



Listing 4: FACTOR 



00100 
00110 
00120 
00130 
00140 
00150 
00160 
00170 
00180 
00190 
00200 
00210 
00220 
00230 
00240 
00250 
00260 
00261 
00262 
00263 
00270 
00280 
00290 
00300 
00310 
00320 
00330 
00340 
00350 



FACTOR/ASM *** 

PROGRAM TO FIND WHICH *** 



*** 
*** 

*** MEMORY BITS ARE SET 
*** AND STORE RESULTS IN 

*** BUFFER FOR GRAPHICS 

*** 

*** 
*** 



PROGRAM 

WRITTEN BY 

DENNIS H. WEIDE 



+** 
*** 
*** 
*** 
*** 
*** 



BUFFER EQU 

BUFENO EQU 

FACTOR EQU 

TIMSLT EQU 



ORG 



$3C00 

BUFFER+$EF 
$3BAD 
$3BAE 



S3BE6 



START 



LOOP 



LDX 

LDY 

LDA 

ANDA 

STA 

CMPY 

BLE 

RTS 

END 



TIMSLT GET TIMESLOT FROM BASIC 
//BUFFER GET START OF DRAM BUFFER 

FACTOR GET POWER OF 2 FROM BASIC 

.X+ DETERMINE IF THIS 

.Y+ BIT IS SET AND SAVE RESULTS 
0BUFEND IS THIS END OF BUFFER? 

LOOP 



ListingS: TESTBAS 





COPYRIGHT 1990 FALSOFT. INC 


1 


BASIC ANALYZER TEST PROGRAM 


2 
3 
10 


BY DENNIS H. WEIDE 


CLEAR 200.16000 


20 


DATA 86.FF.B7.FF.40.20.F9 


30 


FOR X-16384 TO 16390 


40 


READ A$:A$-"&H"+A$ 


50 


POKE X.VAL(A$) 


60 


NEXT X 


70 


FOR X-l TO 1000:NEXT X 


80 


EXEC 16384 



Listing 6: TESTBIN 








00100 


•** ANALYZER 


fEST PROGRAM *** 




00110 


*** THIS PROGRAM LOOPS 


*** 




00120 


*** THROUGH A 


ROUTINE TO *** 




00130 


*** WRITE 255 


TO ADDRESS *** 




00140 


*** $FF40 




*** 




00150 


*** BY DENNIS 


H. WEIDE 


*** 




00160 










00170 










00180 










00190 


ORG 


$4000 


PROGRAM RAM LOCATION 




00200 


DATA EQU 


$FF40 


ADDRESS TO WRITE 




00210 


START LDA 


y/uF 


LOAD AREG WITH 255 




00220 


STA 


DATA 


STORE AREG AT $FF40 




00230 


BRA 


START 


LOOP AND DO AGAIN 




00240 


END 






/«\ 
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Education Notes 



a, e, i, o, u 



by Steve Blyn 
Contributing Editor 



This month's article presents a short 
program in game format that helps 
students review elements of 
phonics. The study of phonics is 
often dry and somewhat boring 
to many students, and using the computer is 
usually more fun than using paper and 
pencil. I have chosen to illustrate this pro- 
gram by having the student choose correct 
vowels and then decide whether they are 
long or short. 

The program contains a series of sen- 
tences on a specific level. One word in each 
sentence has a missing letter represented by 
a dash. The student is first asked to type the 
vowel that belongs at the dash. The pro- 
gram does not proceed until this is an- 
swered correctly. Then the student is asked 
to indicate whether the vowel is long or 
short. 

The program proceeds in this manner, 
randomly selecting from among the sen- 
tences keyed into the data statements. Each 
data statement has three components: the 
sentence, the correct vowel and an L or S to 
indicate whether the vowel is long or short. 
The sentences I used are on the third-grade 
level. You may want to use sentences from 
a different level or permit the students to 
write their own sentences for practice. There 
are 1 5 sentences in this program. You may 
add more by changing the value of A on 
Line 40 to the same amount as the number 
of sentences you want to work with. 

I did not include any scoring in this 
program because I think most students will 
soon master all the questions. I did. how- 
ever, include a small extra when correct 
answers are given. In addition to happy 
sounds, the screen alternates quickly sev- 
eral timesbetween SCREEN 0.1 and SCREEN 

Sieve Blyn leaches both exceptional and 
gifted children, holds two master's de- 
grees, and has won awards for the design of 
programs to aid the handicapped. He owns 
Computer Island and lives in State n Island. 
New York. 



. 0. It is a quick way to add a little pizazz. 
Although vowels are the topic of our 
program, they are not the only phonic ele- 
ments that can be reviewed. With relatively 
few modifications, selected initial conso- 



nants, blends or diagraphs can be the miss- 
ing elements from your sentences. The 
question or questions need to be altered to 
reflect what is missing. 

□ 



16K Extended 



^ 




100 


3 


180 

270 

330 


132 

119 
43 


END 


13 



Listing I: VOWELS 

10 REM"CH00SING VOWEL SOUNDS" 

20 REM "STEVE BLYN .COMPUTER ISLA 

ND.STATEN ISLAND, NY . 1990" 

40 A-15:DIM A$( A) .B$( A) .C$( A) 

50 FOR B- 1 TO A:READ A$(B).B$(B 

).C$(B):NEXT B 

60 CLS5 : PLAY"O4L70GEGFEDC" : RR-RN 

D(-TIMER):R-RND(A) 

70 FOR N- 1 TO 3:PRINT@37."choos 

ing vowel sounds"; 

80 PR1NT@96.A$(R):NEXT N 

90 PRINT@198. "which vowel is it 

?" ■ 

100 PRINT@262 . "PRESS a.e.i.o OR 

u "; 

110 ENS-INKEYJ 

120 IF EN$-"A" OR EN$-"E" OR ENS 

-"I" OR EN$-"0" OR EN$-"U" THEN 

140 

130 IF EN$-"" THEN 110 

140 SOUND 100.1: IF EN$-B$(R) THE 

N 150 ELSE 110 

150 PLAY"O4L30CEDCEDDD":GOSUB 26 



160 PRINT@323."IS THE ";B$(R);" 

10NG OR SHORT ?": 

170 EN$-INKEY$ 

180 IF EN$-"L" OR EN$-"S" THEN 2 

00 

190 IF EN$-"" THEN 160 

200 IF EN$-C$(R) THEN PLAY"L70GF 

EDCCC" ELSE SOUND 10.2:GOTO 160 

210 GOSUB 260:PRINT@384.STRING$( 



32.255): 

220 PRINT@448. "press ENTER to go 

on or E to end"; 
230 EN$-INKEY$ 
240 IF EN$-CHR$(13) THEN 60 ELSE 

IF EN$-"E" THEN 250 ELSE 230 
250 CLS:END 

260 FOR T-1TO500:NEXT T:SCREEN0. 
1:F0R T-1TO100:SCREEN0.0:SCREEN0 
,1:NEXT T 

270 F0RT-1T03:S0UND1.1:NEXT T:SC 
REEN 0:RETURN 

280 DATA I ASKED THEM TO STAY F0 
R D-NNER ON FRIDAY. . .I.S 
290 DATA HIS MOTHER ASKED HIM TO 

BUY H-R SOME MILK..E.S 
300 DATA HER GRANDFATHER BOB C-M 
E TO THISCOUNTRY FROM ENGLAND.. A 
,L 
310 DATA MANY PEOPLE WENT TO SEE 

THEIR CHERRY TR-ES IN BLOOM.. 
E.L 
320 DATA WE VISITED THE Z00 ON A 

CL-SS TRIP LAST SPRING.. A. S 
330 DATA THE TEACHER READ TO -S 
A STORY ABOUT GIANTS.. U.S 
340 DATA PAPER CAN BE M-DE FROM 
WOOD AND RAGS.. A, L 
350 DATA ONE POLICEMAN WR-TE A N 
OTE TO THE OTHER.. 0.L 
360 DATA NEW YORK IS A CITY ON T 
HAT M-P ON THE WALL.. A. S 
370 DATA ONE GOOD H-LIDAY IN NOV 
EMBER IS THANKSGIVING.. 0.S 
380 DATA MY LITTLE D-G IS VERY S 
MART AND VERY CUTE T00..0.S 
390 DATA 1 BIT INTO A N-T AND IT 

HURT MY TEETH A LOT.. U.S 
400 DATA THE RAILROAD STATION IS 

ON THE OTHER S-DE OF OUR TOWN. 

■ I.L 

410 DATA THE HOUSE IS B-TWEEN A 

LARGE ANDA SMALL TREE.. E.L 

420 DATA YOUR MOTHER WANT-D YOU 

TO COME HOME AT 5:00 TODAY.. E.S 
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BASIC Training 



Go Forth and Create! 



by Joseph Kolar 

Contributing Editor 



During this session you will be 
shown a few new ideas and 
concepts, offered hints, given 
a good working program that 
can be used as a guide to create 
whatever design you envision, and encour- 
aged to go forth and create. 

Time's a-wasting. You have two op- 
tions: If you are impatient, type in the 
listing and run it. or if you want to explore 
this together, type in lines 9 through 280 of 
Listing I. This segment of the program 
creates a peculiar sample design. Please 
understand that the design element is an 
entirely random choice. You will be sur- 
prised at how it develops within a few 
minutes. 

Mask Line 101 with a REM. The cross- 
hairs in Line 102 allow us to see in which 
quadrants a design unit resides and how it 
evolves around a point ( 128.96). We will 
examine the AO presentation only. There 
are various ways to do this. One way is to 
retype Line 220. which causes the rotation, 
by typing A-0 and deleting . A from the end 
of Line 260, destroying the loop. This is a 
pain in the neck. Now run the program and 
restore the lines to the original condition 
when you are finished. 

Another way is to change the 3 to in 
Line 220. FOR A-0 TO effectively becomes 
A-0 because the loop allows no other pos- 
sibility. Yet it is an operational loop. Unmask 
Line 101 and run the program. Let's study 
this design unit. It is a surprise to find that 
most of the design is in the fourth quadrant 



Florida-based Joseph Kolar is a veteran 
writer and programmer who specializes in 
introducing beginners to the powers of the 
Color Computer. 



( upper left region ). and the balance is in the 
first quadrant (upper right region). An in- 
teresting point is that we have three nicely 
delineated triangles, but there is one annoy- 
ing line in Quadrant I that stands out like a 
sore thumb. 

Return Line 220 to its former state, then 
run the program. The line in Quadrant I is 
irritating and serves no purpose. Use your 
graph paper to create the design element A$. 
It reveals why most of the design resides in 
Quadrant 4. It also reveals the offending 
line. G3 in Line 100 of the program. If we 
made it invisible, would the integrity of the 
design unit hold up? To make G3 invisible, 
all we need do is insert a B in front of 63. 
Make the insertion and run the program. 

If we add D3 to Line 100. we can close up 
those loose lines to make it a bounded 
triangle. If you consult your sketch, you see 
that it has to be D6H3. Do you see how easy 
it is to run off target? 

Restore Line 100 to its original state. I 
thought. "What would happen if I began 
Line 100 with BL3?" D6 was added at the 
end because the open wing bugged me. 
Another interesting design resulted. Try it! 

The next idea I had was to remove D6. 
change B L3 to BH3, and see what happened. 
Make the changes in Line 100. then run the 
program. Now that has possibilities! The 
clue is that the design is too large. The 
furthest line of the wing is distorted in both 
the second and forth quadrants. Notice the 
two glitches. We discovered in a previous 
tutorial that when the CoCo draws a line 
that runs off screen, it does the best it can 
and moves to the right at the top border 
until it reaches the required length E3 (in 
this case. 44 spaces long). Then it connects 
the two ends of the line. 

One way to eliminate the glitches re- 



quires that the design be made smaller. In 
lines 230 and 1 05. change 44 to40. then run 
the program. Why not make it more distinct 
by changing the steps to - 2 in Line 105 and 
2 in Line 230? Then run the program to see 
the result. 

Unmask Line 270 and mask Line 280 if 
you feel like it. I call this Swazicross. 

If you want to fool around, add D6 at the 
end of Line 100. Then run the program. 
Now remove STEP 2 from Line 230 and 
change -2 to -1 in Line 105 and run the 
program. It looks even nicer if you remove 
D6 from the end of Line 100. Now change 
BH3 to BR4 and run the program. I call this 
Wildllower. 

Do you see how easy it is to gel caught 
up in a creative frenzy? You may want to 
stop this tutorial and work late into the 
night making variations of a theme. 

When you are ready to resume, mask 
Line 270 and unmask Line 280. Edit Line 
230 to read FOR S-4 TO 40 STEP 2 and Line 
105 to read FOR S-40 TO 4 STEP -2. Before 
you restore Line 100, run the program. 
Now that's a flower! A bee would go nuts 
if he came across such a wonder. Change 
BR4 to BH3 in Line 100. This is the final 
demo that evolved before I staggered down 
the primrose detour. 

If you want to get a different, slower 
effect when removing the design, change 
-2 in Line 105 to - 1. This sweep also stops 
between each visible line, drawn by STEP 
+2 of Line 230, and sweeps up sweet noth- 
ings. Now run the program. To use the 
gimmick effectively, divide whatever STEP 
value you have in the On line by two and 
use that value. If the result is not a whole 
number, use the next lowest whole number. 
On the other hand, some leftover residue 
might be desirable on the Off screen. Do 
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not hesitate to try other values that may 
partially clear the screen and leave a nice 
residual pattern. 

Back to the drawing board! 

Type in Line 5 (unmasked), lines 500. 
5 1 0. 520 (unmasked) and 529 through 533. 
At this stage we are only concerned with 
the first design unit and whatever quad- 
rants it occupies. 

Mask Line 100. Restore Line 105 and 
230 as in Listing I. then run the program. 
We see the AO option of an old friend, A$, 
from the last tutorial. Note that it is equally 
divided between quadrants 1 and 2. After 
the first go-around the cross-hairs fall away. 

When you have finished looking, un- 
mask Line 521 and 532 so only the AO 
design unit is exposed. It is not noteworthy 
so we unmask Line 532 to check it out in its 
entirety. Now run the program. Unmask 
lines 522 and 532 and run the program. 
Then mask Line 532 and run the program. 

Unmask lines 523 and 532 and run the 



program again. This is the first example 
where we encounter the M movement op- 
tion. The sharp point gives the game away 
because we know we can't generate such an 
acute point using E and F. Mask Line 532 
and run the program. In SCREEN1 . 1. the 
horizontal spear tips tend toward blue and 
yellow while the vertical tips tend toward 
red and blue. This seems to be the nature of 
the beast. I have observed that lines drawn 
in a horizontal direction lean toward blue 
and yellow and green. Lines drawn in a 
vertical direction tend to be another shade 
of blue, while lines drawn diagonally lend 
to be a pinkish color. 

An unusual arrowhead design is created 
if BL3 is inserted at the beginning of Line 
523. Try it and run the program. Now 
change BL3 to BL6. Can you guess what 
you've drawn? Run the program. You re- 
ally have arrowheads. If you had plotted 
out the design on graph paper, you would 
count the horizontal length, 6. Thus, if you 



jump left six spaces, the CoCo must begin 
at the tip of the arrowhead. Let's change 
BL6 to BL9 and run the progam. What will be 
drawn? It looks like jewel-encrusted dag- 
gers. Notice how the design drifted so it is 
balanced between the third and fourth 
quadrants. The design began at (125,96) 
because we jumped three spaces past the 
end of the design. Thus the visible part of A$ 
is created in a left direction along the hori- 
zontal plane. 

Suppose we changed BL9 to BR9. What 
would be drawn? Are you sure? Run the 
program and watch the arrows as they 
hurtle to the edge of the screen and crash. 
BR5 crashes the two vertical ones. Just for 
meanness, add a rock to the end of Line 
523, +"BE4EFGH" with predictable crash. 
But it looks neat. 

Here is a really unusual concoction: 
Add to the end of Line 523 +"BH4 E FGH" and 
watch the second rock change direction. 
Then run the program. It's great! I think the 



TAKE CONTROL OF YOUR OS9 Lvll COLOR 
COMPUTER 

< < INTRODUCING > > 

Pt - FILE MANAGER - 19.95 

Pt is a complete file management utility. Pi consists of 13 utilities for file 
management ami 7 utilities for directory manipulation. All operate from within 
a point and shoot environment Pt allows you to add point and shoot file selection 
to all your command line based programs. When started Pt displays a directory 
of the current data directory, with a cursor highlighting a file name. The cursor 
moves by using the arrow keys. Simply highlight a filename and press F to display 
the file manipulation menu or D to display the directory menu. A command can 
be entered and the highlighted file used as a parameter by pressing enter. Adds 
many new capabilities not realized in current OS9 utilities. Ideal for both 
hard-disk and floppy based systems. 



S-SCREEN CONTROL UTILITY - 79.95 

Gives complete control of your ten screen in only 510 bytes. 34 built in 
mnemonic commands give simple command line control of your screen. Merge 
S into your shell and forget display codes forever. 



M-MENUING UTILITY- 19.99 

Create complete menuing systems for your OS9 Lvll color computer using 
simple ascii ten files. M merges into your shell for a memory resident menuing 
system. 

ALL PROGRAMS 1W % MACHINE IANGilACE 
MliLTI-Vf K NOT RKOUIKKI). 



r3 Systems Consultants (602) 745-2327 

4072 E 22nd Suite #178 

Tucson, Az 85711 



A/ Residents add 7% sales tax 

Please add S3.00 shipping and handling 

Checks, Money Orders or CO.D. orders accepted. 



1989 COCO FEDERAL TAX 

by PURIT AS SPRINGS SOFTWARE 

In hla review of the 1987 edition. Ted Paul wiote: "This is an excellent program and manual 
and I was in awe when the mail carrier handed me this huge bundle. " COCO CllpBoard 
Magazine. Mar/Apr 1988. 

"THE ultimate tax preparation package. ' 100 * page manual *MK CoCo 1, 2 or 3 w/dlsk 
drive, "3 diskettes, 'menu driven, "loads & uvea files to dlak, 'prlnta to screen and/or 
prepares forme acceptable to IRS. "format A organization followa IRS forma, "built-in 
calculator, "salt-checking tor common errors and omlealona. "simple yet extensive file 
editing features, "disk directory function. " Pnce-S39.95. 

IrMludraFcirm 104th Schedule* A. B.<..I>.fc.SE; Forms 21 06. HSU4M 2.861 Vand Stale/Local Tax. 
frnsinn/ Annuity, Social Security. IRA worksheets and more. 



DELUXE ICON EDITOR 

"A Must For Muttt-Vue" wrote Barry Pottlnger In hi* Feb. 1989 Rainbow 
Review. 100% ml. S12K CoCo3 required. Allows complete creation and revision ol 
Multl-Vue s application and Icon bit map files. A bargain at $10.95. 



■oil WAR Technologies 

IRONSIDES * CRIMSON SAILS 

A two player naval game for the 512K CoCo3 running OS9 Level 2. Utilizes 
640x192 high resolution screen. Cornea on a alngle disk containing 5 different naval 
battles. l&CS la really 5 gamea In one. Different game maps with different set-upe 
requiring different aapecta of play. IftCS can load or eave games In progrese. 

I&CS Is onty $8. 95. Reviewer Ted Peul called It "a steal at this price. Not only are 
the graphics good, but the game is too." Cobb pater Shopper. 1 1 88. Aleoeee Rainbow 
Review. 4/89. 

Amerltrust Building 

17140 Lorain Avenue 

Cleveland. Ohio 44111 

1216) 251-8085 
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firsi rock bouncing off the wall deflected 
the path of the second rock. 

You should want to investigate this case. 
Reduce the size until all the design units are 
undistorted, then increase the size to see 
what happens as the arrow and rocks slam 
into the wall. 

Unmask Lines 524 and 532. then run the 
program. This design is loaded with M op- 
tions. Did you sketch it out? Mask Line 532 
and run the program. Add BR inside the 
quote before M+4 at the beginning of Line 
524. and change Line 220 FOR A-0 TO 2 
STEP2 and Line 104 FOR A-2 TO STEP-2 
to get a kissing gourami fish. Then run the 
program. Restore lines 220. 1 04 and 524 to 
their original state. 

Unmask lines 532 and 525, then run the 
program. Mask 532 and run the program. If 
you plot this one out and are confused, you 
can see it develop best in SCREEN1 . 0. This 
mish-mash design doesn't seem to have 
any redeeming features. 

Remove BR2 from Line 525 and run the 
program. This is an example of a design 
unit in all four quadrants. 

Unmask lines 526 and 532 and run the 
program. This one looks full of possibili- 
ties. Mask 532 and run the program. Note 
that the design crashed along the vertical 
axis. Watch it a few times and you can see 
it hit the wall and bend, searching for room 
to get out of its confinement. 

Remove BR from Line 526 and run the 
program. There is still a slight bump. Insert 
BD in Line 526 and run the program. This 
looks as if it just skidded to a halt in time. 
The design is too bulky. Either A $ should be 
redrawn or Size 44 and maybe Size 40 
should be discarded in lines 105. 230 and 
529. We must learn to not be too ambitious. 

Unmask lines 532 and 527 and run the 
program again. Mask 532. then run the 
program. This is an example of an overly 
complex design. It has so many points of 
interest that it is overpowering. Try not to 
go to extremes in your enthusiasm. 

Extract BR from Line 527. then run the 
program. It is within the boundsof sensibil- 
ity and is acceptable. Now if you insert BR2 
and run the program, it looks like four bugs 
in a spider's nest. Change BR2 to BR3. then 
run the program. It really looks like bugs in 
a spiderweb. Try BL3. If you use BL6. it 
looks like Dracula rising from his coffin. 

Unmask lines 528 and 532 and run the 
program. Mask Line 532. then run the 
program. This design is massive and over- 
whelms the screen. Here is a trick to make 
it a bit smaller, but it alters the design. 
Insert N as the first character in Line 528. 
Now run the program. If you sketched this 
design on graph paper, here is an exercise to 



try. Keep advancing N. one character at a 
time, in Line 28. Guess what effect it has 
and check it out. Advance N until it falls in 
front of the first M in Line 528. Did you 
anticipate this design? 

Mask Line 5 and unmask lines 6. 600 
and 620. Then run the program. Thus far, 
we have been concerned with design units 
that go in the four directions — up. down, 
left and right. Now we will consider those 
that run along the diagonal. If you extended 
a line along the line that points out its 
direction, you can see that it reaches the top 
border at (128+96.0) instead of (255.0). 

Edit Line 6 1 and press ENTER. Type 24. 
press the space bar. type I followed by N. 
press the up arrow and SHIFT keys together, 
then the space bar until the cursor is under 
" and type H followed by E 128". Then press 
ENTER and run the program. This is the 
ideal direction. 

To Line 610. add : LINE (224.0)- 
( 128 . 96 ) . PSET. then run the program. This 
is the line along which the diagonal lines 
build. The trick is to move the diagonal line 
so it heads to 255,0. Mask Line 632 and run 
the program. We can move A$ in Line 620 
to advance along this desired line if we 
insert BR at the beginning. But we modify 
the heart of the design unit. Unmask Line 
632 and run the program. Let's see how it 
looks in all A options. Mask Line 632 and 
run the program. The design is tipped to the 
right. 

There is a trade-off. We can move the 
design in the desired diagonal direction but 
sacrifice part of the design. Often the trade- 
off is acceptable. Here is "Escape of the 
Design's Soul." First Mask Line 610. and 
in Line 630 change 96 to X so we can use the 
X values in Line 629. both to move and 
change the design. Then run the program. 

Unmask Lines 632. 6 1 and 62 1 . Change 
X to 96 in Line 630 and run the program. If 
we introduce BR at the beginning of Line 
621. the design units become equidistant, 
(the ideal attitude). The design is altered 
but not too significantly, and the tilt to the 
right does not assault our artistic taste and 
sensibilities. 

You might comment that this is a failed 
experiment if you mindlessly run from one 
display to the next. But if you stop to study 
each presentation, it is a new ball of wax. 

A final thought on some of the by-ways 
you will travel in CoColand: You will 
evoke an occasional design that is so unique 
that it has never been seen by a human eye 
in all eternity. Afteryou kill it. it may never 
be duplicated in the future. 

□ 



16K Extended 




115 137 

500 183 

528 97 

END 127 



The Listing: WINDMILL 

'LISTINGl 

5 'GOTOBOO-ON THE LINE 

6 "6OTO600'ON THE BIAS 

9 T-RND(2): ON T GOTO10.11 

10 PM0DE4.1:PCLS:SCREEN1.0:G0T01 
00 

11 PM0DE4.1:PCLS:SCREEN1.1 

100 A$-"U3R3G3L3U3E3" 

101 GOTO220 

102 DRAWBM0.96R128NR128ND96U96" 
:GOTO220 

104 FOR A-3 TO STEP-1 

105 FOR S- 44 TO 4 STEP -4 
110 B$-"S"+STR$(S) 

115 D$-"A"+STR$(A) 

120 DRAW "C4BM128.96"+D$+B$+A$ 

130 NEXT S.A 

200 FOR Z- 1 TO 200:NEXT 

205 PCLS:G0T0 9 

220 FOR A- TO 3 

230 FOR S- 4 TO 44 STEP4 

240 B$-"S"+STR$(S):D$-"A"+STR$(A 

) 

250 DRAW"BM128.96"+D$+B$+A$ 

260 NEXT S.A 

270 'FOR Z- 1 TO 2000: NEXT:PCLS 

:G0T0 9 

280 FOR Z- 1 TO 600:NEXT:GOTO 10 

4 

500 PM0DE4.1:PCLS:SCREEN1.1 

510 DRAWBM128.96NL128NR128NU96D 

96" 

520 •A$-"EFRE2F2G2H2LGH" 

521 , A$-"E2F2REFGHLG2H2" 

522 , A$-"EFE2F2EFGHG2H2GH" 

523 , At-"EFEM+3.1M-3.1HGH" 

524 'A$-"M+4. -2R2M-1.2M+3. -1FGM- 
3.-1M+1.2L2M-4.-2" 

525 , A$-"BR2U2H2M+6.2G2GHL4F2M-6 
.2E2U2BL2" 

526 'A$-"BRHM+l.-2M+6.2NM-3.1M+3 
.1M-3.1NM-3.-1M-6.2M-1.-2EBL" 

527 -A$-"BRUHM+2. -1BD2R3FGL3BD2M 
-2.-1EUBR" 

528 , A$-"REFERULDRM+4.1M-4.1LDRU 
LHGHL" 

529 FOR X-4 TO 44 STEP4 

530 DRAW"S-X:BM128.96"+A$ 

531 NEXT X:F0R Z-1TO2000:NEXT 

532 G0T0532 

533 GOTO100 

600 , PM0DE4.1:PCLS:SCREEN1.1 
610 DRAWBM0.96R128NR128NU96D96" 

620 ■A$-"UREU2R2D2L2GDL" 

621 'A$-"EU2RU2FRDFL2DL2G" 

629 FOR X-44 TO 4 STEP-4 

630 DRAW"S-X;BM128.96"+A$ 

631 NEXT X:FORZ-1TO2000:NEXT 

632 G0T0632 

633 GOTO100 f&\ 
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FROM T&D SUBSCRIPTION SOFTWARE „ V 



^ ^ WE ARE SELLING 630 OF THE BEST. JUST THE GOOD STUFF ! 



T&D SUBSCRIPTION SOFTWARE HAS ACCUMULA TED OVER 
1.000 PUBLIC DOMAIN PROGRAMS FOR THE COLOR COMPUTER. 



9m ^m^ 



Musk Iff 

M1- 8 Utilities & 8 Songs 

M2- 17 Musica Files \ 

M3- 16 Musica Files > Requires Musica 

M4- 16 Musica Files/ 

M5- 25 Orchestra Files 

M6- 23 .Bin Files Ready To Run 

M7 - 23 .Bin Files Ready To Run 




ADVENTURES 1,2 

Each Disk/Tape Contains 
9 Great Adventures 
Ready To Run 

Order A1 Or A2 




EDUCATION 1-4 



E1 - 12 Programs For Young Kids 

E2- 12 Programs For High School Kids 

E3 - 11 Programs Teaching The CocoS Commands 

E4 - 5 Graphics Programs About Australia 



HOME MANAGEMENT 1-4 

• 12 Programs Each Disk/Tape • 

H1 - Bargraph, Calendar, Financial Advice, 

H2 - Charts, Last Will. Planets, ♦ 

H3 - Finance, Stocks, Typing, + 

H4 - Spelling Fix, Spelling Checker, ♦ 





TELECOMMUNICATIONS 1-3 

T1 - Haysae, Kermlt, Mikoyterm, TeleTerm 
T2 - Cobbs BBs Terminal Package 
T3- GETERM Communications ' 




GRAPHICS 1-14 

12 Basic Graphic Programs 
12 Basic Graphic Programs 
9 Coco 3 Graphic Programs 
22 Coco Max Pictures 
22 Coco Max Pictures 
22 Coco Max Pictures 
15 Coco Max Pictures 
22 .Bin Pictures 
22 .Bin Pictures 
- 1 4 Large .Bin Pictures 
-8 Mge Pictures 

- Coco Max 3 Pictures' 

- Macpaint Graphic Editor 

- 5 Macintosh Pictures 

•- &* Our Ad Confining 250 CrtfMc PXruna EJmtmrt In TTut Mlgvf 




GAMES Ml 

• Each Disk/Tape Contains 12 Programs • 



GA1- 
GA2- 
GA3- 
GA4- 
GA5- 
GA6- 
GA7- 
GA8- 
GA9- 
GA10 
GA11 



CarRace, Horses, RoBo Dice, StarTrek, ♦ 
BoBo, Chess, Ruble, Yahtzee, ♦ 
Backgammon, Gremlin, Python, Robots, ♦ 
Hawks, Saucer, Shootem, Trek, + 
Batlship, Chicken, Raceway, Squash, • 
Fly, Navy Guns, ShipSub, Tanks, ♦ 
Connect4, F-16, Pizza, Trek, ♦ 
Football, Leaky Tap, Poker, SubHunt, * 
Battle, Chick, Flight, Prix, ♦ 
Blockade, Fly, Missile2, Pong, + 
Bunker3, Guadal, Martians, Traders, ♦ 



UTILIT ES 1-8 

• 12 Programs Each, 1-4 Require Disk • 

U1 - Dlr32, DiskZapper, RomCopy, Snap Edit, * 
U2 • Backup, Diskfix. Labeler, Multback, + 
U3 - Convert ML, MLdata, PlayMac, SendDisk, * 
U4 - Bin>Bas. PlxConv, Unarc, VuMaster, + 
U5 - Assemblr, Graph, McBase, Recover, + 
U6 - Clock, Llist 32, , MiniDos, Plxcomp, + 
U7 - Head Print With 30 Mini Pictures 
U8 - Fig Forth Language With Tutiorial 





MAIL TO: 

T&D Subscription Software 

2490 Miles Standish Drive 

Holland, Michigan 49424 

(616) 399-9648 

Call or write for a FREE catalog ! 



PRICES: 
1- 5 disks/tapes.. ..$6.00 each 

6 or more $5.00 each 

All 53 disks/tapes $145.00 



MasterCard 



Name_ 



CIRCLE ISSUES DESIRED 



Address- 




City- 



. State- 



Zp- 



Credit Card ff_ 



• WE SEND 1ST CLASS - NO CHARGE ■ 
• PERSONAL CHECKS WELCOME • 



Expires 



TOTAL AMOUNT $_ 



Ml 


GR1 


E1 


U1 


GA1 


M2 


GR2 


E2 


U2 


GA2 


M3 


QR3 


E3 


U3 


GA3 


M4 


GR4 


E4 


U4 


GA4 


Mb 


GR5 




U5 


GAS 


MB 


GR6 


HI 


U6 


GA6 


M/ 


GR7 


H2 


U7 


GA7 




GRB 


H3 


UB 


GA8 


At 


GR9 


H4 




GA9 


A2 


GR10 
GR11 






GA10 
GA11 


11 


GR12 








I? 


GR13 








13 


GR14 










PLEASE CIRCLE 






TAPE 




DISK 



Please turn to pages 23 & 57 for our Subscription Software! 



■^^ AJNBOWfest is the only cimipurer show dedicated 
Lg£ exclusively in your Tandy Color Computer 
m Nowhere else will you see as many CoCo- 

related products or be able 10 attend free seminars con- 
ducted by the top Color Computer experts. It's like receiving the 
latest issue of THE RAINBOW in your mailbox! 

RAINBOWfest is a great opportunity for commercial 
programmers to show off new and innovative products for 
the first time. Chicago, Illinois is the show to get information 
on capabilities for the CoCo. along with a terrific selection of the 
latest CoCo software. In exhibit after exhibit, there will be 
demonstrations, opportunities to experiment with 
software and hardware, and special RAIN- 
BOWfest prices. 

Set your own pace between visiting 

exhibits and attending the valuable, free 

seminars on all aspects of your CoCo — 

from improving BASIC skills to working with 

the sophisticated OS-9 operating system. 

Many people who write for THE rain- 
bow— as well as those who are written about — 
' are there to meet you and answer questions. 
You'll also meet lots of other people who share 
your interest in the Color Computer. 1 l's a person- 
to-person event and a tremendous learning experience in a fun and 
relaxed atmosphere. 






As an additional treat for CoCo Kids of all ages, we've invited 
frisky feline CoCo Cat to join us for the show. RAINBOWfest has 
something for everyone in the family! 

If you missed the fun at our last RAINBOWfest in 
Somerset. New Jersey, why don't you make 
plans now to join us in Chicago. Illinois? 
For members of the family who don't 
share your affinity for CoCo. there are 
many other attractions in the Chicago 
area. 

The The Hyatt Regency 
Woodfield — Schaumburg. Illinois, offers special 
rates for RAINBOWfest. The show opens Friday 
evening with a session from 7 p.m. to 10 p.m. It's a 
daytime show Saturday — The CoCo Community Breakfast 
(separate ticket required) is at 8 a.m., then the exhibit hall opens 
promptly at 10 a.m. and runs until 6 p.m. On Sunday, the exhibit 
hall opens at 1 1 a.m. and closes at 3 p.m. 

Tickets for RAINBOWfest may be obtained directly from 
THE RAINBOW. We'll also send you a reservation form so you can 
get a special room rate. 

The POSH way to go. You can have your travel arrangements 
and hotel reservations handled through RAINBOW affiliate. POSH 
Travel Assistance. Inc.. of Louisville. For the same POSH treat- 
ment many of our exhibitors enjoy, call POSH at (502) 893-33 1 1 . 
All POSH services are available at no charge to RAINBOWfest at- 
tendees. 



FREE SEMINARS 



Cray Augsburg 
RAINBOW Managing Editor 
Writing for Publication 

Bill Daniels 
Danosoft 

Memory Methods for Large Programs 

Kevin Darling 

Independent Programmer 
Advanced OS-9 



Art Flexser 
SpectroSystems 

A Walk through BASIC 



Marty Goodman 

RAINBOW Contributing Editor 

2 CoCo Consultations 

Marty Goodman & Guests 
RAINBOW Contributing Editor 
Inside Delphi 

Cecil Houk 

Rulaford Research 

Musical Instrument Digital Interface 

(MIDI) 



Greg Law 

RAINBOW Technical Editor 

OS-9 for Absolute Beginners 

Jeff Noyle 

Oblique Triad 

Game Programming Forum 

Dale Puckett 

RAINBOW Contributing Editor 

BASIC09 




COCO COMMUNITY 
BREAKFAST 
Frank Hogg — Key Note Speaker 

Frank Hogg, entrepreneur, gives us insight into the future as we move 
progressively towards the 680x0 and OS9/68K. Frank's background, known 
well to RAINBOW readers, covers all the computers from the old WWTPC 
6800 thru the CoCos to the 68030 based multi-megabyte QT computers he 
makes today. Frank's talk explores ways to bridge from the CoCo to the 680x0 
computers with OS9/68000. He explores ways to run CoCo applications on OS9/ 
68000 and the exciting possibility of running both a 6809 and 68000 in the same 
machine. Join Frank for this glimpse into the future. 



Don't forget ... 

If yours is one of the first 500 ticket orders, a coupon for a complimentary issue of The 
Third Rainbow Book of Adventures will be enclosed with your tickets — if yours is one 
of the first five orders received from your stale, a coupon for a complimentary RAIN- 
BOWfest T-shirt will be enclosed with your tickets. So hurry up and place your order to 
take advantage of this offer. 




£AlNBOWfesf - Chicago. Illinois 
Dates - April 6-8. 1990 
Hotel - Hyall Regency Woodfield 
Rooms - $69 per night. Single or Double 
Advanced Ticket Deadline: March 23,1990 



Join us at a future RAINBOWfest! 

Tentative Schedule 

RAINBOWfest - Somerset. New Jersey 

Dates - October 20-22. 1989 



FREE T-Shirt to first five ticket orders received from each state! 



r 



~i 



YES, I*m coming to Chicago! I want to save by buying tickets now at the special 
advance sale price. Breakfast tickets require advance reservations. 



Three-day ticket(s) at $9 each 

One-day ticket(s) at $7 each 

Circle one: Friday-Saturday-Sunday 
Saturday CoCo Breakfast 

at S 1 2 each 
RAINBOWfest T-shirt(s) 

at $6 each 
Specify size: 

S M L XL 



total, 
total 



Name 



total 



(please print) 

Address 

City 



total 



Telephone 
Company _ 



State . 
ZIP 



(T-shirts must be picked up at the door) 

Handling Charge SI SI .00 

TOTAL ENCLOSED 

(U.S. Currency Only. Please) 

3 Also send me a hotel reservation card for The Hyatt Regency 

Woodfield ($69. single/double room). 

Advance ticket deadline: March 23. I9W. Orders received less than I wo weeks prior to show opening will be held for you al the door. Tickets will also be available auhedoorat a slightly 
higher price. Tickets will be mailed six weeks prior to show. Children 4 and under, free: over 4. full price. 

Make checks payable to: THE RAINBOW. Mail to: RAINBOWfest. The Falsoft Building. 9509 U.S. Highway 43. P.O. Rot 385. Prospect. KY 40059. To make reservations by phone. 
| in Kentucky call (502) 228-1492. or outside Kentucky call (SIKH 847-0309. 



□ Payment Enclosed 

□ VISA ij MasterCard □ American Express 

Account Number 

Exp. Date 

Signature 




■ •■■■ 

■ ■■■• 
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bersome to use. I llgure if I have to call the 
shell 90 percent of the time I may as well 
work directly with the shell instead of having 
another program do it for me. 

However. M-Menu System is a good 
value for the price. It is an excellent system 
for setting up a personalized menu system. 
If you're looking for a small, easy-to-use 
menu system under OS-9. this program fits 
the bill. 

(r3 Systems, 4072 E. 22nd St., Suite 178, 
Tucson, AZ 85711, 602-745-2327; $19.95 
plus$3S/H) 

— Jim Manning 
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Slam Bam — 
Dunk It, Ma'am 



Slam Bam lets the armchair athlete slam 
dunk a basketball without having to work 
up a sweat or even lace up the sneakers that 
have been sitting in the back of the closet 
since last summer's company picnic. This 
graphics game allows numerous ways to 
dunk a basketball including one- and two- 
handed dunks, normal and backhanded 
slams or the showoff-and-spin-36()-degrees 
and stuff-that-sucker-through-the-hoop 
dunks. It is even possible to break the 
backboard — a goal in life I'm sure we all 
have. All these shots are carefully scruti- 
nized by three judges whose accumulative 
ratings produce a point value for each suc- 
cessful dunk which are then displayed on a 
scoreboard. 

The game comes with two pages of 
instructions — the weakest part of the 
package. Even disregarding the numerous 
typos and grammatical errors, it is difficult 
at best to decipher the author's intent. 
Therefore, the best way to get the hang of 
the game is through trial -and -error. For 
instance, to attempt a dunk coming down 
the middle, you would start with the joy- 
stick held to the right and press the 2 key. 
You then watch as the animated player 
approaches a line beneath the basket at 
which point you press the firebutton to 
make him jump. At the same time, move 
the joystick to the left. If the dunk is suc- 
cessful you see the ball drop through the 
basket, and then you receive a score from 
each of the three judges. If the shot is 
missed, the player returns to the foul line 
for the next shot. 



To play, whether alone or against a 
human opponent, a I28K CoCo 3 {not a 
5 1 2K CoCo 3) and a joystick are required. 
To really enjoy Slam Bam. however, you 
have to be a basketball glutton because the 
game only allows four shots in the Game 
mode and three shots in the Practice mode, 
after which the player has to sit through the 
cycling of the title screen, credits, opt for 
Solo or Two-player mode, choose to prac- 
tice or play a game and enter his or her name 
again. This gets quite tedious after a short 
period of time. And even at a listed price of 
$10, this is not likely to be a game that you 
will return to play time after time. 

(Erich Sweaney, P.O. Box 45434, Ta- 
coma, WA 98445, 206-535-9733; $10) 

— George Aftamonow 
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Big RAMDisk— 
Big Things in 
Small Packages 



Well, you did it. You got that 512K 
RAM upgrade you requested as a Christ- 
mas present, and now you're ashamed to 
admit that you only wanted it to see the 
nifty graphics in Rogue. Or that you'd like 
to learn OS-9 for its memory-usage capa- 
bilities but just haven't got the lime to sit 
down with it. Take heart. Danosoft has 
what you're looking for. 



Pre-Rainbowf est Sale* 

We Pay Shipping Until April 6th ! : 



MUL TI-FONT PRINTER 

.^j?" Now a Blazing '0* 
■^r- 180 characters ^ 

TheNX-lOOOIIgi^syou 

plenty of pnnt options lor 

attractive printing 

Four typesfyles 

Four pilch sizes. 

m standard 

and italics 

tor a total 

Ot32 

NLQ 

modes. 

The NX- 

1000 Rainbow 

gives you all these features plus 

online access to 7 color printing and graphics. 

Black, blue. red. yellow, green, violet, and 

orange. Both models have a I year warranty 

and a 30 day online tnal 
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NX-1000II SYSTEM INCLUDES: 

• Star NX-1000II Printer $00088 
■ Blue Streak Ultima afcUO 

• Software Support Trio -$io sr»wng paid - 

COMPLETE 



$ 269 



95 



NX-1000 RAINBOW SYSTEM 

INCLUDES: 

■ Star NX-1000 

Colour Printer 410 Swg paid- 

:^%r>COMPLETE 

• Color Super Gemprint 



The Smallest, Sleekest, 
Fastest Serial To Parallel 
Converter You Can Buy! 

7 Swilchabel Baud Rates 

300 -600 -1200 -2400- 
4800 -9600 -19200 



Use this "smart" cabte to con- 
nect a Centronics parallel pnnter 
to any version CoCo or use it to 
improve performance of your 
current printer The 
cables are long-lite, high 
quality shielded cables 
wrih moulded plugs lor 
eitra durability 

Try a 8lue Streak Ultima on 
your system lor 30 days RISK 
FREE One year warranty 



The Blue 
Streak Ultima 



Powered version 
add $6.00. 



$ 39 
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•K Slapping 
PAID' 





***' 



FREE 4 

•nn puichaM ol an* , 
m-lOOO System ,— 




Software 
Support Trio 

Type Selection/Tutorial 

Online instructional program tnal will select 24 
special leatures ol your printer or display meth- 
ods to incorporate Ihem into your 
programs 

Super Gemprint 

Will transler Pmode 0. 1 . 2 . 3. or 4 picture screen 
to pnnter 8'xt 1* hardcopy Blaciewhite. while' 
black or grey level shading lor color 

Hi-Res Super Gemprint 

Disk software thai will transler a Hscreen 1,2,3, 
or 4 picture screen to printer. Grey level shading 
lor color 

■j-tJrVWi* v All Three 
-*^ FREE ' ' Programs 

^- MbMRnHMm rS- tJAQE 

^r NI-10M Meter ,— -* * | VI «»» 

Color Super 
Gemprint 

Print your Graphics Screen 
in Color on your NX-1000 
Rainbow! 



Use your lavonle program to create a 
pmode or hires graphic image, but 
don't stop there 1 Run our color graph- 
ics software and print a color image 
using a palette ol 81 » colors on your 
NX-IOOORainoowlromaCoCol 2. 
or 3. Requires 32k ECB Oisk 



$ 19 95 



/ FREE % 

.£ tflin purehaM ol any «^£ 
^. NI-lMO Rainbow ^ 

^{^ 

Pnce. avadatHhty and specifications 
subject to cftange without notice 



Order Your System Today... Call (513) 885-5999 



DAYTON ASSOCIATES 



of W.R. 
Hall , 



INC. 



Visa & Master accepted within 

the continental U.S. 

Ohio residents add 6.3% sales tax 

COD add $3.00 

'5h««ig ejej or*. It Cwienefflal U S Nomiai s-iwng cnatges to Canada PR. HI An. APO. FPOate oouoe T r«» cturge to »■ 00** coueteee These areas can take eovantege ol 
simw special ay detsjcsnj me continental U S ihco^g amount iiom de> normal irtcomg costs Oder ewes act* a 1990 



9644 Quailwood Trail • Spring Valley, Ohio 45370 
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Lasl October at the RAINBOWfest in 
New Jersey, I had the pleasure of meeting 
Bill Daniels, the genius behind Danosoft. 
Judging from the titles of his software 
packages {Big BASIC. Big Disk and now 
Big RAMDisk). I had expected a large man 
with hands thai barely fit on the keyboard 
(rather like myself). Instead Mr. Daniels 
resembles his work: compact and brilliant. 
He operates an accounting firm in Canada, 
so his software business is a second line. He 
is the only person I have met so far. how- 
ever, who doesn"t bother with an assembler 
when he writes machine-language programs: 
He has memorized most of the instruction 
codes and so types them directly into RAM, 
using Danosoft's Memory Master. 

Big RAMDisk is not just another RAM 
disk program — it is a complete package in 
its own right, containing eight different 
configurations for most any assignment of 
drives, real or "imaginary." There are utili- 
ties to back up the physical drives to and 
from the RAM drives and to relocate the 
program in memory, should it interfere 
with some machine language application. 
It is also usable in combination with any of 
Danosoft's pantheon of Big utilities. 

The program is a breeze to run. You 
decide which configuration to use based on 
two criteria: first, your DOS version, and 
second, which physical drives you want to 
use and how you want to number your 
RAM drives. Because I have Disk BASIC 
2. 1 and am using Big Disk from the utilities 
package. I have converted my physical 
drive to one 360K, 40-track Drive 0. I 
configured Big RAMDisk to "real" Drive 0. 
RAM Drive 1 by typing L0ADM"RAMDISK/ 
113". Different configurations are made 
just by changing the extension. Then you 
can DSKINI the RAM drive jusl like any 
drive. A BASIC program supplied on the 
disk called COPYDISK will copy the enlire 
disk from the physical drive to the RAM 
disk or vice versa. Since it is a GAT (Gran- 
ule Allocation Table) backup, it is quite 
fast — it copies only the files it finds on the 
directory, instead of all 35. 40 or 80 tracks, 
used or not. The manual also states that this 
is a good way to optimize disk access speed 
because the program copies to the physical 
disk in the most economical order, so the 
files aren't scattered around on the disk. 

If the RAM disk isn't fast enough for 
you (my word processor saves a three- 
granule file in less time than it takes me to 
realize it's done), you can use the high- 
speed poke. POKE 65497 . 0. While this can 
be disastrous with a physical drive ("Kids! 
Don't try this at home!"), it really blasts off 
with the RAM drive, which, being soft- 
ware, isn't affected by the slow reaction 
time of motors and controllers. No more 
waiting while the drive cranks and grinds to 



load and save huge files. 

When you're through with a session, 
you can save your RAM disk's contents 
back to a floppy by running COPYDISK again. 
Don't forget — I lost a program I was 
working on because I did a cold start before 
backing up to a floppy. Even that was no 
disaster, because a cold start clears only the 
normal 64K "shadow" RAM. preserving 
your RAM disk. Reloading and executing 
the control program restores the RAM drive, 
and if you haven't DSKINIed them, your 
files are still there, untouched! Saved the 
day for me. 

Danosoft's Big RAMDisk is a thoroughly 
useful utility that combines a great product 
with the ease of use that marks a winner. 
The documentation is deceptively simple 
for being so thorough; it left no doubts or 
questions in my mind after the first read- 
through: and if you forget something, it's 
easy to find on just three pages. Big RAM- 
Disk is more thorough and flexible than 
RAM drive programs that come with some 
memory upgrades. At $ 1 2.95 it will also be 
one of the best values in your software 
collection. And at one granule, it's small 
enough to fit on your most-used disks 
this just proves that good things do come in 
small packages. 

(Danosoft, P.O. Box 124, Station A, 
Mississauga, ON L5A 2Z7, Canada, 
416-897-0121; $12.95 U.S., $14.95 Cnd., 

add $2.50 S/H) 

—Fred Toon 
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Super Backup 

Utilities — 

A Time-Saving Copier 

If you're like me. (he first thing you do 
with that brand new disk is back it up] For 
every computer user there are at least two 
horror-story accounts of the "trashed disk." 
You know, that one report you worked on 
for days — the one on the floppy disk you 
discovered in the affectionate embrace of 
your former favorite pet. Now, don't you 
wish you had made a backup of that disk? 

You say with one disk drive and Disk 
BASIC it takes five full minutes and numer- 
ous swaps, so that the task ranks right up 
there with weeding the garden as your 
favorite pastime? Carl England's Super 



Backup Utilities won't be able to help you 
with your garden, but it is sure to change 
your mind about making those backups. 

Super Backup Utilities is a single-disk 
set of three configuration programs written 
in BASIC with matching machine-language 
(ML) programs lhai perform the necessary 
task of keeping ole Spot out of the dog- 
house. The utilities are totally adjustable to 
just about any and all configurations of 
CoCo systems. Each set of basic and 
matching ML programs is based on avail- 
able system memory. The 64K utility re- 
duces a single-drive, verified, full 35-track 
disk backup from five minutes and seven 
arm-tiring disk swaps io a most acceptable 
three minutes, with four swaps. 

Now. for those with a !28KCoCo3and 
one drive, the backup of a full 35-track disk 
takes two minutes with only two disk swaps. 
For those of us who enjoy a 5 1 2K CoCo 3 
single-drive system, the entire disk is backed 
up with only a single disk swap and a mere 
two minutes of time. However, there is yet 
another benefit from the 5I2K utility. 

With the 5I2K backup utility you have 
the option of making multiple copies of a 
disk without having to reinsert the original 
disk. The utility loads the entire contents of 
the disk into memory and holds it there 
until you no longer need it. 

Starting with a copy of the utility disk, 
just run the appropriate configuration pro- 
gram based on the total amount of your 
CoCo's memory. The configuration pro- 
gram automatically customizes the match- 
ing ML program. After this, all you do is 
L0ADM the ML utility and voila — instant 
copies. Well, maybe not that simple, but 
almost. 

The utility presents you with a menu 
screen that allows you to select one of the 
following: I ) Make a Backup. 2) Return to 
DOS or 3) Change Number of Tracks to be 
backed up. One point must be emphasized: 
The source disk (the disk to be copied) must 
be in the drive before you make the selec- 
tion to do a backup. This requirement holds 
true for the target disk as well. 

The documentation provided with this 
package is very professionally laid out in 
an eight-page booklet. Each of the utilities 
are fully explained in easy-to-understand, 
non-technical language that is actually 
enjoyable to read. It's quite obvious that 
Mr. England spent a great deal of time wiih 
attention to detail in preparing his docu- 
mentation. Are any other manufaclurers 
reading this? 

Each of the Super Backup Utilities pro- 
grams work in the same way. They copy the 
disk track by track, without regard to the 
file allocation table. This allows for a track- 
by-track duplicate of the original disk. The 
utilities do not abort if a disk error occurs. 
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Your CoCo is the longest-lived, most innovative and. 
surelj . best-loved Computer ever io hit the market, In con- 
stant use by millions of us for a decade now. its story is both 
an interesting and fascinating one. And now you can relive 
it all — all the fun, the people, the frustrations — in CoCo: 
An Affectionate History of the Tandy Color Computer. 

This anecdotal history of llie CoCo. by well-known au- 
thors Dale and Esther Puekett. tells the stories of those 
people at Tandy who brought us the Color Computer: the 
programmers who've put the 6X09 through its paces: the 
hardware gurus with their electronic marvels: and the many 
vendors who have made these innovations available to us. 
You'll also read about people like you who have supported 



the Color Computer with countless hours al the keyboard 
and by attending CoCo functions. You never know — you 
might even read about yourself. And this says nothing of the 
many pictures you'll see. 

CoCo: An Affectionate History is scheduled for release 
early in the fall of 1990, Prior to publication it will be avail- 
able in an attractive limited-edition hardcover version for 
only $45. A softcover version will also be available for 
S 1 5.95. But if you order now. you can reserve copies of the 
softcover version for a pre-publication price of just SI 3.50 
apiece. Reserve a copy of CoCo: An Affectionate History For 
yourself. Or order several for those you care about — and 
take a walk down Memory Lane together. 
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5 ft 
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jCS! I want to reserve: 



Name 



State 



hardcover copies of CoCo: An Affectionate History for $45.00 apiece. 

softcover copies of CoCo: An Affectionate History for S 1 3.50 (plus S2.50 S/H ) apiece. 

My check in the amount of is enclosed. 

Or. bill to: QVISA 'J MasterCard □ American Express 

Account Number 

Expiration Date 



Zip, 



Address 

City 

Signature 

Mail to: CoCo History. The Falsoft Building. P.O. Box 385. Prospect. KY 40059. For credit card orders call (800) 847-0309. 
8 a.m. to 5 p.m. EST. 



Instead, an informative error message is 
displayed onscreen along with track and 
sector numbers where the error occurred. 
This allows for the additional option of 
recopying only the affected area of the disk 
using the provided ZAP utility. 

You get a sector-by-sector view of the 
disk as it is copied. This view is provided at 
the top half of the monitor/TV screen while 
the lower half cues you for any necessary 
disk swaps or error information. Each 
backup utility allows you to alter the num- 
ber of tracks to back up. I tried the 512K 
backup utility with ADOS-3 and it did a 
beautiful job of backing up a full 40-track 
disk without any interference from, or with. 
ADOS-3. By the way. my ADOS-3 is not on 
an EPROM — yet. Support is also pro- 
vided for 80-track disks. 

The ZAP utility that comes with this 
package is a small program offering the 
user the ability to copy any single sector on 
a disk simply by typing in the track and 
sector number. It could very well spell the 
difference between just a sharp scolding or 
a trip to the humane society for good ole 
Spot! With the ZAP utility, you no longer 
have to run another backup just because of 
one stubborn granule. 

Super Backup Utilities could prove very 
useful to any single-drive CoCo user who 
finds the backup routine provided under 
Disk BASIC a real pain. I tried all of these 
utilities with a two-drive system and found 
a savings of almost a full 60 seconds off the 
Disk BASIC time on each configuration. At 
just $15. it's a very good deal. 

(Carl England. 128 Shepherd Drive N.E., 
Calhoun, GA 30701, 404-629-7197; $15) 

—Terry Parks 
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UltraEd+— 
Disk-Based Assembly 
With the EDTASM+ 
ROM Pack 

If you are a person who never throws 
anything out because someday you will 
find a use for it. your day has come. Or 
maybe your Aunt Ginny was so excited that 
she finally found something you could use 
that you couldn't bring yourself to tell her 
you use only disk software. In either case. 



that Tandy EDTASM+ ROM pack just 
increased in value. 

UltraEd+ is a set of instructions and a 
patch for upgrading the CoCo EDTASM+ 
ROM pack to work with the features of the 
Color Computer 3. It also adds several nice 
features for those of us who aren't content 
with BASIC and off-the-shelf solutions. It is 
not. on the other hand, for those of you who 
think CoCo assembly involves solder and 
funny little devices with wires. 

The package makes several improve- 
ments in both EDTASM+ and its built-in 
debug program, ZBUG. By incorporating 
the SuperPatch program published in THE 
rainbow as well as other features. VI- 
traEd+ adds disk support, a directory (up 
to four columns with Disk BASIC 2.1), 
support for the CoCo 3's 80-column screen, 
two different buffer sizes, automatic ap- 
pend and the ability to suppress "FCC" 
printing. 

Disk support is provided by changing 
the cassette commands to access the disk 
drives instead. This means that the cassette 
files you have will need to be transferred to 
disk prior to using them with the patched 
assembler. The cassette V (verify) com- 
mand is exchanged for the disk V (view 
directory). With Disk BASIC 2.1 this gives 
a four-column directory in the 80-column 
mode. 

The L command (load) can be used to 
merge a number of small assembly mod- 
ules into a larger program by appending 
each loaded file to the end of code already 
in memory. This allows the creation of a 
library of common code that can then be 
merged into a program when needed. Line 
numbers can duplicate numbers already in 
memory without overlaying the existing 
line. The N command is used to clean up any 
numbering conflicts. 

The program supports two different 
buffer sizes, a 1 6K buffer and a larger one 
that will hold about 3000 lines of assembly 
code. These two buffers overlap and are 
toggled by the Q menu (which also toggles 
"FCC" printing and exits to BASIC). The 
primary benefit of having the smaller buffer 
is to allow testing with BASIC and Disk 
BASIC mapped into memory. The larger 
buffer, of course, allows you to have much 
bigger programs in memory. 

ZBUG makes use of these two buffers as 
well. With the small buffer mapped in. 
debugging can be performed on code that 
calls the ROM routines in BASIC or Disk 
basic. Without (his option, the process of 
debugging ROM calls is very difficult and 
tedious (translation: a real pain). The large 
buffer is used by the patches to ZBUG to 
allow for disassembly. 

This disassembly feature is one of the 
best features of this package. It is toggled 



on when in the debug mode with the large 
buffer and disassembles any code present 
in that buffer. The generated code can then 
be edited or saved in the same manner as 
any other code. It is limited to about 4K at 
a time, but most of us will find that to be 
adequate. Larger modules can be handled 
in sections. Most important is the fact that 
the disassembled code reassembles (after 
editing origins) into exactly the same 
machine code. Now I can do something 
about bumping up the number of lives in 
Downland (for my daughter, of course). 

I found very few problems with Ul- 
traEd+. An "End of Buffer" warning, which 
is documented, is one of them. Another is 
with the instructions for making the patch 
— they left out the fact that after saving 
EDTASM+ to disk, a power off/on reset is 
probably needed before running the BASIC 
patch program. No combination of com- 
mands or resets seemed to be able to get 
around this problem. But this is not a big 
deal, because it occurs only in the patch 
process and not when using UlrraEd+. 

The documentation consists of a few 
pages outlining the patching process and 
the changes to the EDTASM+ commands. 
It states that if you are a legal owner of the 
ROM pack, you will get the rest of" the 
information you need from its manual. The 
instructions for patching the program are 
easy to follow and. except for the problem 
mentioned above, complete. The page 
describing the new features and their use 
contains the information you need but is 
hard to read and could stand some better 
examples as well as reformatting. 

If you have the EDTASM+ ROM pack, 
this is a good way to upgrade to a disk- 
based assembler for less than the cost of 
Tandy's Disk EDTASM+. If you already 
have the disk version, the patch provides 
some features not found in it. If you don't 
have the ROM pack already, its list price 
plus the cost of this package is a little higher 
than Disk EDTASM+. 

UltraEd+. which is not copy -protected, 
requires the Tandy EDTASM+ ROM pack, 
at least one disk drive, a cassette recorder 
with cable and a Color Computer 3 with 
1 28K. Disk BASIC 2. 1 ( 1 . 1 ) is preferred but 
2.0 ( 1 .0) is supported. 

A special thanks to Terry Morrow of 
Sandbox Micro Systems in Fairborn, Ohio, 
for the loan of the EDTASM+ ROM pack 
used in this review. I had switched to Disk 
EDTASM+ and given mine away. 

(Supersoft, Inc., 363 Oakwood Ave., 
Jackson, MI 49203, 517-787-3610; $22.50 
plus $2.50 S/H) 

— Jesse R. Strawbridge 
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The following products have recently been received by THE RAINBOW, examined 
by our magazine staff and issued the Rainbow Seal of Certification , your assurance 
that we have seen the product and have asscertained that it is what it purports to be. 



C.R.T. Connection Disk G14. one disk in 
a 1 14-disk public domain library. Disk G 14 
is a freeware CoCo 3 game by Shane Messer 
called Color Wheel, based on the TV game 
Wheel of Fortune. C.R.T. Connection, 3625 
Orange Ave., Fort Pierce, FL 34947. (407) 
464-9873: $3.50 plus $2 S/H. 

C.R.T. Connection Disk GR25. the 

McPaint graphics editor by the Milliluk 
Partnership of Greg Miller and Eric 
Gavriluk. It includes fonts and animation 
features. The program is public domain/ 
shareware, and a donation is requested. For 
the CoCo 1. 2 and 3, requiring 64K and a 
disk drive. C.R.T. Connection. 3625 Or- 
ange Ave.. Fort Pierce. FL 34947. (407) 
464-9873: $3.50 plus $2 S/H. 

KJV on Disk #6. the book of Numbers, 
chapters 1 through 18. of the King James 
version of the Bible on disk in ASCII files 
for the CoCo I. 2 and 3. BDS Software. 
P.O. Box 485. Glenview. 1L 60025. (312) 
998-1656: $3. 

Paladin's Legacy, a fantasy role-playing 
Adventure game featuring animated, scroll- 
ing graphics. The land of Tarinth has been 
overrun by vile, evil creatures who have 
captured the king and are running amok in 
the cities and villages. Only one. pure of 
heart, who can master the five magics of the 
legendary Paladin, can hope to rescue the 
King and restore order to the realm. The 
player does battle with supernatural forces 
and explores cities, castles and cathedrals. 
For the CoCo 1 . 2 or 3. requiring 64K and 



a disk drive. It comes on a flippy disk. 
Sundog Systems, 2 1 Edinburg Drive. Pitts- 
burgh. PA 15235. (412)372-5674; $24.95 
plus $2.50 S/H. 

Sinistaar. a machine-language arcade game 
for 5 1 2K CoCo 3s. featuring digitized voices 
and sound effects. When the evil Sinistaars 
invade the peaceful galaxy of Ursula, it 
falls to you. the best pilot in the galaxy, to 
man the ship Marauder and fight against 
them. You will mine a special ore from an 
asteroid belt; this ore is made into Sini- 
bombs that destroy the Sinistaars. The game 
comes on two flippy disks, requiring a disk 
drive and a joystick (Tandy's deluxe two- 
button joystick recommended). Sundog 
Systems, 21 Edinburg Drive, Pittsburgh, 
PA 15235. (412) 372-5674; $34.95 plus 
$2.50 S/H. 

C.R.T. Connection Disk Ml, a collection 
of 1 6 Musica files, along with a player. No 
hardware required to hear the multi-voice, 
machine language files. CRT. Connec- 
tion, 3625 Orange Ave., Fort Pierce, FL 
34947. (407) 464-9873; $3.50 plus $2 S/H. 



Star XB-2415 Multi-Font Printer, a 24- 
pin printer that does color printing. Fea- 
tures include three print modes (draft, letter 
quality and super letter quality), built-in 
typefaces, paper parking, an IC card slot 
and Epson, NEC and IBM Proprinter 
compatibility. Requires a serial-parallel 
converter or the optional serial interface for 
use with the CoCo. Star Micronics. 420 
Lexington Ave.. #2702. New York. NY 10170. 
(212) 986-6770: $999. 

Supersound 1.2, an upgraded CoCo 3 
sampling program that records sound in 
one and two tracks and also supports graph- 
ics and animation. New features include a 
new manual and support for up to 2 Meg of 
memory (as well as 128K and 512K). The 
package includes a play-only utility that 
users can give to their friends. Upgrades to 
Version 1 .2 are provided for owners of the 
original version who return the original 
disk and the green manual cover, along 
with $2.50 S/H. Supersoft. Inc.. 363 
OakwoodAve.. Jackson. Ml 49203. (517) 
787-3610; 39.95 plus $230 S/H. 



The Seal of Certification is open to all manufacturers of products for the Tandy 
Color Computer, regardless of whether they advertise in THE RAINBOW. 

By awarding a Seal, the magazine certifies the program does exist — that we have 
examinned it and have a sample copy — but this does /io/constitute any guarantee 
of satisfaction. As soon as possible, these hardware or software items will be 
forewarded to THE RAINBOW reviewers for evaluation. 

— Lauren Willoughby 
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A new routine for an old chore 



The File Handler 




by Richard Estrado 



This program is especially for those who enjoyed the 
new experience and freedom of using wildcards to 
obtain selective directory listings (Rainbow, June 
1989, Page 122). However. I am sure that all disk 
drive users will herald the advent of this new routine. 
I am pleased to introduce a COPY command lhat uses wildcards to 
add versatility to file handling on the Color Computer. 

This long-overdue utility enables you to copy groups of files 
from one disk to another using a one- or two-drive system. Your 
Tandy Color Computer 1 . 2 or 3 must be equipped with Disk BASIC 
Version I.I or 2.1. al least 64K of RAM. and one or more disk 
drives. 

The wildcard used by this program is an asterisk (*) represent- 
ing the group of characters that succeed it in the filename or 
extension. Forexample LE* . BAS represents all the files on the disk 
with LE as the first two letters in the filename and an extension of 
. BAS. Using the same principle. F* . * represents all files on a disk 
with F as the first letter in the filename and with any extension. 
Now that we all have an understanding of how wildcards are 
used, let's look at the syntax for the new COPY routine. When the 
routine is active, the COPY command can be used just as before for 
single file copies: 



Richard Estrada has studied and taught computer science for the 
past five years at Fatirna College. He may he contacted at 43 
Sapphire Crescent, Diamond Vale. Diego Martin. Trinidad. West 
Indies. 
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* 



* 



COPY "filename. e.\i:c" TO "filename. e.xtul" 

Please note thai no wildcards can be used when you use the old 
syntax. 

When you wani to copy a group of files using dual drives, use 
the following syntax: 

COPY "filename. exi.e" TO d 

where c and d are numbers from to 3. which represent the source 
and destination drives, respectively. A wildcard must be in- 
cluded in either ihe filename, the extension or both. 

To copy a group of files using a single disk drive, simply use 
this syntax: 

COPY "filename. ext" 

No drive specification is necessary here since a single disk 
copy is being performed. But again you must include a wildcard 
in the filename, the extension or both. Therefore a command such 
as COPY "*.BIN:0" TO 1 copies all the files on Drive with the 
extension .BIN to Drive I. 

Whenever you copy a group of files, each filename copied is 
displayed on the screen as it is being processed. At the end of the 
procedure a summary of the number of files copied is printed at 
the bottom of the files list, and control is returned to basic. 

How to Obtain a Working Copy 

If you choose to type in the assembly language listing using 
EDTASM+. do as follows: After a successful assembly (no 
errors), exit from the assembler and type in the following BASIC 
statement: 

SAVEM "C0PY-.&H5581.&H5731.&H5581 

These numbers refer to the start, end and execute addresses of 
the code. Subsequently, whenever you want to use the routine, 
type in these BASIC statements: 

CLEAR 450.&H5581:L0ADM "COPY" :EXEC 

After you enter this line, a Syntax Error should occur. This 
indicates that after the routine was executed, control was passed 
to the COPY procedure without the correct syntax. It is not 
necessarily an indication that you incorrectly entered the com- 
mands. The COPY procedure is now active. 

Alternatively, you can type in the basic program and run it. 
but remember that an error will occur in the last line of the pro- 
gram (the EXEC statement) for the reason stated above. Whatever 
method you choose, remember that it is necessary to execute the 
program only once. You can use the routine as many times as you 
want just by entering the appropriate COPY command. 

There is one important prerequisite for all CoCo I and 2 users: 
As with the DIR routines, you have to put Ihe computer into the 
all-RAM mode before you attempt to run COPY. The all-RAM 
program that accompanies this article also appeared on Page 97 
of the July 1987 rainbow. 

Q 




BARBARIAN QUEST 

Save yOUT bride to be from Ihe horrors 

Of Ihe evil Luihor's domain! Screen utter 

screen of beautiful graphics and exciting 

arcade action with fully animated 

characters. Cireat digitized sound. Walk. 

nip. climb and Tight your way to victory against a host of 

s vile cohorts. Game includes an optional continue feature 

own you to keep playing even if you loose! Set your own 

f stress! It" great arcade action! Requires 5I2K and I disk 



run 

I .uihor 

that all 

level o 

drive. ONLY $34 



THK SUPER DISK 

. • Never before have so many powerful 

disk utilities been assembled in one 
puckage. The manual contains NEVER 
BEFORE PUBLISHED information 

■ - m i_ about copy protection techniques and the 

disk has ALL of the utilities you need to use that information. If 
you are an author, this is a MUST HAVE package! If you just 
like lo SNOOP, this disk has everything you need to read & write 
any pari of a disk, even the data you were not meant to see! If 
you want to create copy protected disks or copy your valuable 
originals, THE SUPER DISK is for you! JUST $39 

WARCAMK DESIGNER II 
WGD II is a complete graphic oriented 
war game design system. Create your 
own graphic icons for units and terrain 
features. Design your own maps. Assign 
each unit it's own unique attributes. 
Then play the games you want to. the ones YOU designed. It's 
easy. All modules are menu driven, no programing knowledge re- 
quired. Comes complete with manual. 2 Hippy disks and 4 ready 
t.i play scenarios. ONLY 529 

WARGAME DESIGNER ICON DISK 

This disk contains hundreds of ready to use icons for units and 
terrain features. Save hours of design lime. Just transfer these icons 
to your WGD II game disk (automatically from menu) and you're 
ready to design a new scenario. A real bargain at just $15 

WEEKLY WINNKR 3.0 

Recently updated. WW 3.0 now handles 
3.4.5.6 and 7 digit lottos. We've per- 
sonally seen it pick 4 and 5 out of 6 in 
the Ohio SUPER LOTTO and have had 
iJ MUk reports of winnings from users in other 

parts of the US. Enhance YOUR chance! Invest in WEEKLY WIN- 
NER 3 todav ONLY $15 



COCO 3 FLAGS 

This is the BEST "RISK" play alike 
available for the COCO 3. Screen shows 
the entire world and /.ooms in on the 
area you choose. For I to 6 players. It's 
great entertainment for a mere S2 I 

COCO 3 WHEEL 

Outstanding party fun at' I to 6 players! 
You can even design your own word 
puzzles. ONLY $2 1 





VOCAB 

If you like SCRABBLE, you'll love 
VOCAB. Il even includes a family of 
computer opponents. For I to 6 players. 
JUST $21 



1990 CATALOG 

Have you got your copy of our NEW 1990 fully illustrated 16 page 
catalog yet? It explains in full detail each of the programs above 
plus many more fine entertainment and productivity programs for 
your COCO 3 disk system. Send your name and address and $2.00 
and we'll RUSH your copy to you at once. You'll also gel DIS- 
COUNT COUPONS worth $30.00 FREE with the catalog! 
Gel your's Today. 

All orders are shipped via first class mail within 24 hours of receipt. 
We accept VISA. MASTERCARD, MONEY ORDERS. PER- 
SONAL CHECKS and COD orders. 
COD's add $3.00. Phone or mail your order in today! 

SPORTSware 

1251 South Reynolds Road, Suite 414 • Toledo. Ohio 43615 
(419) 389-1515 
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64K Disk 






* 


















Listing 1: COPYASM 




00630 


COMP1 


LDA 


.Y 


01270 




CMPA 


#10 










00640 




CMPA 


#'* 


01280 




BNE 


UNIT 


00010 


* USING WILDCARDS 


00650 




LBEO 


SERCH2 


01290 


TEN 


INC 


TCOUNT 


00020 


* 






00660 




CMPA 


.U+ 


01300 




CLR 


UCOUNT 


00030 


* BY 


RICHARD 


00670 




BNE 


ADVAN 


01310 


UNIT 


INC 


UCOUNT 


00040 


* 


ON 89 


10-27 


00680 




CMPY 


#$953 


01320 




JSR 


COFI 


00050 


* 






00690 




BEQ 


SERCH2 


01330 




LDA 


SDCF 


00060 


* 






00700 




LEAY 


l.Y 


01340 




BNE 


REPT 


00070 


START 


CLRA 




00710 




JMP 


COMP1 


01350 




JSR 


$D326 


00080 




LDX 


//COPY 


00720 


SERCH2 


LEAX 


8.X 


01360 


REPT 


JMP 


LOOP 


00090 




STX 


$C211 


00730 




TFR 


X.U 


01370 


COFI 


LDA 


SDRIVE 


00100 


COPY 


LBSR 


$C935 


00740 




LDY 


#$954 


01380 




STA 


$EB 


00110 




CLR 


UCOUNT 


00750 


COMP2 


LDA 


.Y 


01390 




LBSR 


$D399 


00120 




CLR 


TCOUNT 


00760 




CMPA 


#'* 


01400 




LDA 


SDCF 


00130 




CLR 


DRIVE 


00770 




LBEO 


DUMP 


01410 




PSHS 


A 


00140 




CLR 


SDCF 


00780 




CMPA 


.U+ 


01420 




LOA 


DRIVE 


00150 




LDA 


$EB 


00790 




BEQ 


C0MP3 


01430 




STA 


$EB 


00160 




STA 


SDRIVE 


00800 




LEAX 


-8.X 


01440 




LBSR 


$D399 


00170 




STA 


DRIVE 


00810 




BRA 


ADVAN 


01450 




JSR 


$CAE9 


00180 








00820 


C0MP3 


CMPY 


#$956 


01460 




LBRA 


$D3D6 


00190 




LDY 


#$094C 


00830 




BNE 


NEXT 


01470 


* OUTPUT 


00200 


LOOK 


LDA 


.Y+ 


00840 




BRA 


DUMP 


01480 


OUTNAM 


LDX 


#$094C 


00210 




CMPA 


#•* 


00850 


NEXT 


LEAY 


l.Y 


01490 




LDB 


#8 


00220 




BEO 


GTPARM 


00860 




JMP 


COMP2 


01500 




JSR 


$B9A2 


00230 




CMPY 


#$0957 


00870 


* ADVANCE 1 


DIR POINTER 


01510 




LDA 


#32 


00240 




BNE 


LOOK 


00880 


ADVAN 


LEAX 


32.X 


01520 




JSR 


[$A002] 


00250 




LBRA 


$D3BC 


00890 




CMPX 


#$700 


01530 




LDB 


#3 


00260 


GTPARM 


CLRA 




00900 




BNE 


COMP 


01540 




JSR 


$B9A2 


00270 




CLRB 




00910 




INCB 




01550 




LDA 


#13 


00280 




JSR 


$A5 


00920 




CMPB 


#11 


01560 




JSR 


[$A002] 


00290 




BEO 


SKIP 


00930 




BLS 


STORE 


01570 




RTS 




00300 




CLRA 




00940 




RTS 




01580 MSG 


FCC 


"FILE(S) COPIED 


00310 




COMA 




00950 


* DUMP 


THE FILE 


NAME TO 8UFFER 


!" 








00320 




STA 


SDCF 


00960 


DUMP 


LEAX 


-8.X 


01590 


SUMARY 


LDX 


#MSG 


00330 




LOB 


#$A5 


00970 




PSHS 


B 


01600 




LDA 


#13 


00340 




JSR 


$B26F 


00980 




PSHS 


X 


01610 




JSR 


[$A002] 


00350 




JSR 


$A5 


00990 




PSHS 


Y 


01620 




LDA 


TCOUNT 


00360 




SUBB 


n 


01000 




LDB 


#12 


01630 




ADDA 
JSR 


#$30 


00370 




SUBA 


#'0 


01010 




LDY 


PLACE 


01640 




[$A002] 


00380 




LBLO 


END 


01020 


REP 


DECB 




01650 




CLR 


TCOUNT 


00390 




CMPA 


#3 


01030 




CMPB 


#0 


01660 




LDA 


UCOUNT 


00400 




LBHI 


END 


01040 




BEQ 


QUIT 


01670 




ADDA 


#$30 


00410 




STA 


DRIVE 


01050 




LDA 


.X+ 


01680 




JSR 


[$A002] 


00420 




JSR 


$9F 


01060 




STA 


,Y+ 


01690 




CLR 


UCOUNT 


00430 


SKIP 


JSR 


$A5C7 


01070 




BRA 


REP 


01700 




LDA 


#' 


00440 


EXTRAC 


LDX 


//TABLE 


01080 


QUIT 


STY 


PLACE 


01710 




JSR 


[$A002] 


00450 




STX 


PLACE 


01090 




PULS 


Y 


01720 




LDB 


#16 


00460 


SETUP 


JSR 


$C79D 


01100 




PULS 


X 


01730 


PRT 


LDA 


.X+ 


00470 




JSR 


$8958 


01110 




PULS 


B 


01740 




JSR 


[$A002] 


00480 




LDD 


#$1102 


01120 




BRA 


ADVAN 


01750 




DECB 




00490 




STA 


$00EC 


01130 


* PERFORM T I REPEATED COPY 


01760 




CMPB 


#0 


00500 




STB 


$EA 


01140 


GETNAM 


LDX 


#TABLE 


01770 




BNE 


PRT 


00510 




LDB 


#3 


01150 




STX 


PLACE2 


01780 


END 


RTS 




00520 


STORE 


STB 


$ED 


01160 


LOOP 


LDY 


PLACE2 


01790 


TABLE 


RMB 


748 


00530 




LDX 


#$600 


01170 




CMPY 


PLACE 


01800 


PLACE 


RMB 


2 


00540 




STX 


$EE 


01180 




BEQ 


SUMARY 


01810 


PLACE2 


RMB 


2 


00550 




JSR 


$D6F2 


01190 




LDX 


#$094C 


01820 


DRIVE 


RMB 




00560 


COMP 


TFR 


X.U 


01200 


LOAD 


LDA 


.Y + 


01830 


SDRIVE 


RMB 




00570 




LDA 


.X 


01210 




STA 


.X+ 


01840 


SDCF 


RMB 




00580 




BEO 


ADVAN 


01220 




CMPX 


#$0957 


01850 


UCOUNT 


RMB 




00590 




COMA 




01230 




BNE 


LOAD 


01860 


TCOUNT 


RMB 




00600 




LBEO 


GETNAM 


01240 




STY 


PLACE2 


01870 




END 




00610 


* COMPARE 


FILE NAME 


01250 




JSR 


OUTNAM 










00620 


SERCH1 


LDY 


#$094C 


01260 




LDA 


UCOUNT 
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Breakpoint 



Conversions 
and Diversions 



by Greg Law 

Technical Editor 



Have you Mumbled across the 
rma assembler and wondered 
jusi how ii differs from the stand- 
ard assembler? Judging by ihe 
letters I have received, quite a 
number of you have. The rma assembler is 
included with the C compiler under Ihe 
name c.asm. and an updated version is 
included with ihe OS-°- Development Sys- 
tem. The primary difference is that asm is 
designed to assemble system modules and 
utilities, whereas rma is designed for high- 
level language support and large applica- 
tions programs. 

Put another way. asm requires all source 
code to be assembled at once as a single 
file. Although you can put the source code 
into separate files for easier editing, the 
files must be either merged into a single file 
or merged at the assembly step using the 
use directive. This places a limitation on 
the file size that may be assembled as well 
as the number of labels that may be used. 
This also means that any function in any of 
the files may call any other function and 
directly manipulate any variable in the data 
area, whether by accident or otherwise. 



In addition to being OS-9 Online SIGop. 
Greg Law enjoys programming on all types 
of computers and lias winked an systems 
ranging from the CoCo to the Burroughs 
B6700 super mainframe. He lives in Louis- 
ville. Kentucky. 



One advantage of rma is that the source 
code may be contained in any number of 
files, and only one file needs to be as- 
sembled at a time. For example, if you are 
developing an application and modify only 
one file, there is no need to assemble any of 
the other source Files. You c:\n simply 
assemble the modified file and link it with 
the other object files to create the execut- 
able program. Another advantage of rma is 
thai, by default, all labels are local to the 
psect in which they are defined. This means 
that no function can call any other func- 
tions or manipulate any variables that are 
defined in other files unless you explicitly 
al low it to do so by making the label global. 
This might not make you a better program- 
mer overnight, but it allows greater flexi- 
bility in creating modular code. 

One of the disadvantages of rma is thai, 
unlike a sm.it does not give you control over 
the exact byte placement of data and code. 
The linkerallocates space foryour symbols 
on a first-come, first-served basis, and the 
offset given to a label can vary depending 
upon the order in which the files are linked. 
Normally you don't need explicit byte 
placement, so this isn't a major concern. 
However, there are certain instances where 
this can be an important factor, such as 
when writing device descriptors. 

Converting Source 

The process of converting asm source 
code to rma source isn't difficult at all. As 
you browse over the listing of nice, you 



will see that most of it is the same as the 
listing shown last month. The first modifi- 
cation is to add a few equates for those 
without the os9defs.a file. Note that we 
have removed the rmb 200 statements for 
the slack and parameters and placed them 
into the equates section. This is done be- 
cause the memory size required for the 
stack is defined in the psect statement. 

The mod statement is changed to a psect 
that defines the beginning of the program 
code section. The variables defined here 
include the name, module type and lan- 
guage, attributes and revision level, edi- 
tion, slack size, and the entry point for the 
program. Note that the name is the actual 
string itself and not a label referencing a 
string. Each source file should have only 
one psect. and only the source file with the 
actual entry point of the program defines all 
fields. All othersource files should contain 
zero for all fields except the name, edition 
and stack requirements. The primary dif- 
ference here is that the definitions in the 
psect are used to define the object file 
header used by the linker and do not have 
any direct relation to the module header. 

The vsect statement defines the begin- 
ning of the variables section. The variables 
are defined in almost exactly the same 
manner as with asm. with one minor differ- 
ence — the statement dsiz equ .has been 
replaced with an ends statement, which is 
shorthand for endsect. This defines the 
end of the data section, and rma automati- 
cally calculates the number of bytes re- 
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quired. Also, it is mandatory thai the vsect 
be placed inside the psect. You can have 
any number of vsects within a psect. but 
you can have only one psect per source 
file. 

The remainder of the source file is ex- 
nctly the same, except that lsn pqu * has 
been replaced with an ends statement. As 
above, this defines the end of the psect, 
and rma automatically calculates the code 
size generated for you. The secret formula 
here is that the endsect statement defines 
the end of a section much the same as END I F 
works with nested IF statements in BAS- 
icoo. As you have seen, converting source 
code from asm to rma is relatively painless 
for small source files. 

Programming Principles 

For larger files you will probably want 
to split the source into multiple files, with 
each file containing a logical unit. For 
example, in the listing shown, the ASCII- 
to-hexadecimal conversion routine can be 
put into a separate psect since it can be 
considered a separate entity from the main- 
line code. The idea here is to create your 
programs as a sequence of subroutines with 
explicit entry and exit conditions much the 
same as a library. Indeed, it is much easier 
to write and debug a routine to put charac- 
ters on the screen and perform screen scroll- 
ing operations than ii i^ io write un entire 
word processor from scratch. 

With this technique you can quickly and 
easily create the routines used by the appli- 
cation as you gradually build up to the 
master program. Later on. these same rou- 
tines can be reused in many other applica- 
tions such as a relational database, terminal 
emulator, etc. A common mistake is to sit 
down with a large application in mind and 
attempt to write it from scratch without 
giving much thought to the underlying 
procedures that are required. 

It should be mentioned that rma is well- 
suited for this type of programming. It 
allows you the flexibility to create the 
subroutines as separate modules. You can 
assemble each file as you modify it. then 
link it with mainline code that will test the 
routine as necessary. There is no need to 
reassemble every module because one 
routine was altered, as is the case with asm. 

Another bonus is that the screen updat- 
ing routine doesn't need to concern itself 
with the variables used in the other rou- 
tines. With rma you can declare the vari- 
ables used in each routine within its psect, 
and they will be hidden from any other 
routines. You will quickly realize that 
modular code is definitely easier to create 
and maintain. J 
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Listing 1: 


nice. a 








* 






* NICE - 

* 


(01989 by STEPHEN B. G0LD8ERG 






* Use: n1 

* 


ce [priority] <command> [parameters] 






* Run a commanc 


at the indicated priority (1-255) 






* If the 

* 


priority is omi 


tted it defaults to 100 








ifpl 












use 


/dd/defs 


'os9defs.a 






* 


endc 










prgrm 


equ 


$10 


module type 






ob jet 


equ 


$01 


language 






reent 


equ 


$80 








rev 


equ 


1 


revision number 






edition 


equ 


1 


edition number 






stack 


equ 


200 








params 

* 


equ 


200 








* 


psect 


nice.prgrm+objct.reent+rev.edition.stack+params 


.entry 






vsect 










priority 


rmb 


1 


process priority 






npoint 


rmb 


2 


command name address 






ppolnt 


rmb 


2 


command parameter address 






* 


ends 












fee 


/(c)1989 


S.B.Goldberg/ 






****************************** 






* CONVERT 


DECIMAL TO BINARY 






****************************** 






bin 


clra 












sta 


priority 


zero priority 








bsr 


bin2 


convert digits 






bin2 


bsr 


convert 


convert digits 






convert 


ldb 


.X 


get character 








subb 


#•0 


make binary 








empb 


#9 


valid digit? 








bhi 


back 


no. return 








pshs 


d 


save it 








ldb 


priority 


get previous total 








Ida 


#10 


multiply by 10 








mul 












addd 


,s++ 


add current digit 








tsta 




more than 255? 








bne 


syntax 


yes. prompt and quit 








stb 


priority 


save total 








leax 


1.x 


bump pointer 






back 


rts 




return 






****************************** 






* INITIALIZE 










****************************** 






entry 


bsr 


bin 


get priority 






findemd 


Ida 


.x+ 


parameter character 








empa 


#$20 


command name? 








beq 


findemd 


not yet. look again 








bio 


syntax 


no command, prompt and quit 








leax 


-1.x 


reset pointer 








stx 


npoint 


save command name address 






endloop 


ldd 


.x+ 


command name character 








empb 


#$20 


end of command name? 








bhi 


endl oop 


no, keep looking 








ora 


#$80 


set ms bit 








sta 


. -x 


terminate command name 






findpram 


ldd 


,x+ 


get character 








empb 


#$20 


command parameter? 








beq 


findpram 


no. keep looking 








stx 


ppoint 


save parameter address 






****************************** 






* SET PRIORITY 











114 



THE RAINBOW 



April 1 990 



****************************** 






os9 


F$ ID get process ID 






bcs 


out exit with error 






ldb 


priority priority? 






bne 


setprior yes, set it 






ldb 


#100 no. use 100 






setprior os9 


F$SPr1or set priority 






bcs 


out exit with error 






****************************** 






* EXECUTE THE COMMAND 






****************************** 






Idx 


npolnt command name 






ldy 


#200 maximum parameter length 






ldd 


#$0003 type/1 ang and data size 






leas 


200. u move stack to direct page 






Idu 


ppolnt parameter address 






os9 


F$Chain chain command 






****************************** 






* SYNTAX ERROR 


PROMPT 






****************************** 






syntax leax 


<sprompt.pcr syntax prompt 






print ldy 


#200 maximum length 






Ida 


#2 standard error path 






os9 


ItwritLn prompt to screen 






bcs 


out ex1 1 w1 th error 






clrb 


clear error 






out os9 

* 


FJExit quit 






sprompt fee 


/Use: nice [priority] <command> [paramete 


-si/ 




fdb 


$070a 






fee 


/ priority - 1 - 255/ 






feb 

* 


$0d 






ends 








end 






/«\ 




Nearly 200 
Color Computer 
Software Titles! 

Call today to get your new 1990 
Express Order Software Buyer's 
Guide. Choose from popular games, 
educational packages, productivity 
software and more. It's the fast and 
easy way to get the software you 
really want. 




A DIVISION Of TANDY CORPORATION 



1-800-321-3133 




COMPUTER ISLAND EDUCATIONAL SOFTWARE 



PROGRAMS ON SALE THIS MONTH 



$15 each-tape or disk 





First Games (for young children) 
Arrow Games (for young children) 
Beyond Words - Grade 3-5 
Beyond Words - Grade 6-8 
Beyond Words - Grade 9-12 
Vocabulary Builders - Grade 3-5 
Vocabulary Builders - Grade 6-8 
Vocabulary Builders - Grade 9-12 
Cocowheel of Fort.une-For Coco 2 
Cocowheel of Fortune- for the 

Coco 3 with RGB OR TV 
Math Invaders 
Number Sequences 
Signed Numbers 




Computer Island 

227 Hampton Green 

Staten Wand,NY 10312 

(718) 948-274S 



Add $1.00 postage, NY res. add tax 
VISA, Mr - Send for free catalog 



TAZMAN 




RAINBOW 

CERTIFICATION 
SEAL 



Soar through the universe with an old ship and a 

small cargo, searching for Inhabited planets on 

which to market your goods. Shop for the latest 

and most efficient upgrades for your ship. Stay 

clear of space hazards and sidestep planetary 

storms as you seek your fortune among the starsl 

512KCoCo3. OS-9/I1& One Drive 16 Colors Joystick $24.95 

™£™ Armchair Admiral 



The time-honored game of Battleship, enhanced by 

Intelligent computer opponents, comes to your 

CoCo3 complete with sloops and galleons. Up to 8 

players, any mix of human or computer. 

128K CoCo3, Tape or Disk $14.95 



"^?T 



Riddle of the Ring 

Text adventure n 2£SZ 

Games Pack 1 C oCo2/CoCo3 
Concentration. l Drive 

Hangman & others $io.ooeach 



SPECIAL OFFER 

Buy Timn A AtMcheir Ad«lrel 

and get a free T-ehittl 

State design and aiac. 

(Teaaen/Ariechair) IS H L II) 

Additional ahitta 910. 0D each 



Checks, money orders. MasterCard & Visa. 
All orders add $2.00 shipping and handling. 

C.O.D. please add an additional $2.00. 
Washington addresses add 7.5% Sales Tax. 



Eversoft Games Ltd 

P.O. Box 3354 
Arlington, Wa 98223 



(206) 653-5263 
10am to 6pm PST 
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A program to make routine number juggling less routine 



The Price is Right 



by Gordon E. Fouts 



Recently I had a need to mark 
down four pages of prices for 
musical instruments. A calcu- 
lator would have worked fine, 
but this seemed to be a job for 
CoCo. Just load Markup! Discount, turn on 
your line printer (the little TP-10 is great for 
this job), and type in each number as it is 
requested. 

First the program asks whether you want 
to mark up or discount numbers (prices or 
whatever). This is followed by the question 
ARE YOU SURE?, asking you to verify your 
input with a Y (yes) or N (no). Press the 
appropriate response and then press ENTER. 
Next the program asks for the percentage of 
increase or decrease and instructs you to 
type it as a decimal ( 4%- . 04 and 40%- . 40 ). 
Let's say you want to discount prices by 30 
percent ( .30). After you enter this value and 
respond to another ARE YOU SURE?, the 
printer writes DISCOUNTING BY ---.3. Here 
you will have reached the heart of Markup/ 
Discount. 

Either routine — mark-up or discount 
— repeats over and over as many times as 
you have numbers to change (remember 
my four pages of prices'? ). You are asked to 

Gordon Fouts. a free-lance musician who 
works at a music store, also operates a 
word processing service with his wife. He 
may he contacted at 3469 St. Albans Road. 
Cleveland Heights. OH 44121. 



input your numbers one by one in response 
to DISCOUNTING WHAT AMOUNT?. If you input 
100. for example, the screen displays: 



DISCOUNT FROM 100 
DISCOUNT PERCENTAGE 
AMOUNT OF DISCOUNT 
NEW REDUCED AMOUNT 

HIT ANY KEY TO GO ON 



.3 
30 
70 



andtheprintergivesyou 100 --- 30-70. 
If you ask to mark up numbers by 30 
percent (.3). the screen displays: 

MARK-UP FROM 100 

MARK-UP PERCENTAGE .3 

AMOUNT OF MARK-UP 30 

NEW MARKED-UP AMOUNT 130 

HIT ANY KEY TO GO ON 

and the printer produces 100 +++ 30 - 130. 
The screen instructs you to input four zeros 
and press enter if you want to quit the 
present function in order to go to the other 
routine. 

The introductory graphics require 
extended BASIC, but the working part of the 
program uses only text screens. Just start 
the program by typing RUN270 and press 
enter if you have standard basic. Or if you 
want, simply delete lines 60 through 260. 

Markup/Discount is a simple and handy 
tool to take the negative out of routine 
number juggling and even make it fun. 





CoCo 3 ^ 












/ 




VA 90 255 

1 220 191 






310 48 

390 14 

450 127 

540 59 

600 88 

670 184 

740 45 

820 25 

890 241 

END 231 


The Listing 

" C0PYRIC 
10 'MARK-Uf 
20 'BY G0RI 
30 'THIS PI 

THE TRS 
40 'FOR NOf. 

DELETE 
50 'FOR THI 

CHANGE 

"LPRIN1 


M 

H' 

•l 




-i 

- 

L 

I 

"I 


ARKUP 

r 1990 FALSOFT. INC 

H-+-+ DISCOUNT' 

\ E. FOUTS' 

iRAM WAS WRITTEN FOR 

10 COLOR COMPUTER' 

IXTENDED BASIC. 

NES 60 THRU 260' 
1C-10 COMPUTER 
>RINT#-2" TO 

IN LINES: 470, 600, 
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720. AND 850' 

60 'GRAPHIC SCREEN (+%-)' 

70 PM0DE4.1:PCLS:SCREEN1.1 

80 CIRCLEC 100.50) .11 . . .75 

90 FOR T-0TO1000:NEXT T 

100 CIRCLE (102. 45). 3. .1. .25.. 75 

110 CIRCLE (115. 24). 50. ..5.. 05. .3 

120 FOR T-0TO1000:NEXT T 

130 LINE< 165.30) - (95. 135) .PSET 

140 FOR T-0TO1000:NEXT T 

150 CIRCLEC 155. 125) .11 . . .75 

160 FOR T-0TO1200:NEXT T 

170 FOR D-62T097STEP1 

180 LINE(50.D)-(50.D).PSET 

190 NEXT D 

200 FOR T-0TO700:NEXT T 

210 FOR A-32T067STEP1 

220 LINE(A.79)-(A.79).PSET:NEXT 

A 

230 FOR T-0TO2000:NEXT T 

240 FOR M-183T0218STEP1 

250 LINE(M.79)-(M.79).PSET:NEXT 

M 

260 FOR T-0TO3000:NEXT T:PCLS 

270 'MARK-UP +%- DISCOUNT' 

280 CLS:FOR T-0TO1000: NEXT T 

290 PRINT@134. "MARK-UP +%- DISCO 

UNT" 

300 FOR T-0TO1000:NEXT T 

310 PRINT0224. "WHICH DO YOU WANT 
TO DO? 

320 PRINT@290."MARK-UP":PRINT@32 

3. "OR" 

330 INPUT" DISCOUNT <M/D>"; 

MD$ 

340 PRINT 

350 INPUT" ARE YOU SURE <Y/ 

N>";YN$ 

360 IF YN$-"Y"THEN380ELSE370 

370 CLS:GOTO310 

380 CLS: IF MD$-"M"THEN390ELSE640 

390 FOR T-0TO200:PRINT@106."MARK 

ING-UP":NEXT T 

400 PRINT@192."WHAT PERCENTAGE 

F MARK-UP?":PRINT 

410 PRINT@258."TYPE THE PERCENTA 

GE":PRINT@290."AS A DECIMAL": PRI 

NT 

420 INPUT" - 4%-. 04 - 40%-. 40 
- ":MP 

430 PRINT: INPUT" ARE YOU SURE 

<Y/N>":YN$ 

440 IF YN$-"Y"THEN470ELSE450 

450 CLS:GOTO400 

460 'FOR MC-10 COMPUTER. CHANGE 
THE TWO "PRINT//-2"'S TO 
"LPRINT" IN THE NEXT LIr 

470 PRINT#-2."MARKING-UP BY 

+ ":MP:PRINT#-2."" 

480 CLS:PRINT@42."MARKING-UP" 

490 PRINT 

500 PRINT"INCREASING WHAT AMOUNT 

?":PRINT 

510 PRINT"TYPE <0000>" 

520 INPUT"AND <ENTER> TO QUIT - 

- ":M:PRINT 

530 IF M-0000THEN890 

540 AM-M*MP:MS-M+AM 

550 PRINT"MARK-UP FROM: 
";M 

560 PRINT-MARK-UP PERCENTAGE: 
";MP 

570 PRINT-AMOUNT OF MARK-UP: 



JE' 



":AM 
580 PRINT"NEW MARKED-UP AMOUNT: 

":MS 
590 "FOR MC-10 COMPUTER CHANGE 
THE "PRINT#-2 M TO "LPRINT" 
IN THE NEXT LINE' 
600 PRI NT#- 2 . M ; "+++" : AM : "-"MS : M- 
0:AM-0:MS-0 

610 PRINT:PRINT"HIT ANY KEY TO G 
ON" 

620 G$-INKEY$ 

630 IF G$-""THEN620ELSE480 
640 FOR T-0TO200:PRINT@106."DISC 
OUNTING":NEXT T 

650 PRINT@192."WHAT PERCENTAGE 
F DISCOUNT?":PRINT 
660 PRINT@258,"TYPE THE PERCENTA 
GE":PRINT@290."AS A DECIMAL":PRI 
NT 
670 INPUT" - 4%-. 04 - 40%-. 40 

- ";DP 
680 PRINT: INPUT" ARE YOU SURE 

<Y/N>";YNS 
690 IF YN$-"Y"THEN720ELSE700 
700 CLS:GOTO650 

710 'FOR MC-10 COMPUTER CHANGE 
THE TWO "PRINT#-2"'S TO 
"LPRINT" IN THE NEXT LINE' 
720 PRINT#-2. "DISCOUNTING BY - 

- ";DP:PRINT#-2."" 

730 CLS:PRINT@42. "DISCOUNTING" 

740 PRINT 

750 PRINT"DECREASING WHAT AMOUNT 

?":PRINT 

760 PRINT"TYPE <0000>" 

770 INPUT"AND <ENTER> TO QUIT - 

- ":D:PRINT 

780 IF D-0000THEN890 
790 AD-D*DP:DS-D-AD 
800 PRINT"DISCOUNT FROM: 
:D 

810 PRINT-DISCOUNT PERCENTAGE: " 
:DP 

820 PRINT-AMOUNT OF DISCOUNT: " 
:AD 

830 PRINT"NEW REDUCED AMOUNT: " 
:DS 

840 'FOR MC-10 COMPUTER CHANGE 
THE "PRINT#-2" TO "LPRINT" 
IN THE NEXT LINE" 
850 PRI NT# - 2 . D ; "-" ; AD : "-" j DS : D 
-0:AD-0:DS-0 

860 PRINT:PRINT"HIT ANY KEY TO G 
ON" 

870 0$-INKEY$ 

880 IF O$-""THEN870ELSE730 
890 CLS 

900 PRINT@134. "MARK-UP +%- DISCO 
UNT" 

910 PRINT@290."DO YOU WANT TO ST 
ART AGAIN?" 
920 PRINT: INPUT" - <Y/N> — 

":R$ 
930 IF R$-"Y"THEN270ELSE940 
940 CLS 

950 PRINT@134. "MARK-UP +%- DISCO 
UNT" 
960 PRINT@320."TO BEGIN AGAIN - 

970 PRINT"TYPE <RUN> AND <ENTER> 

980 PRINT:PRINT:PRINT 
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TANDY COMPUTERS 

Tandy 1000-HX 256K 5 1/4" 
Tandy 1000-SU2 512K 3 1/2" 
Tandy 1000-TL/2 640K 3 1/2" 
Tandy 1100FD Portable 
Tandy 1400FD Portable 
Tandy 1400HD Portable 
Tandy 2500XL 1 Meg 3 1/2" 
Tandy 4016 SX 1 Meg 3 1/2" 
Tandy 4016 DX 1 Meg 3 1/2" 
Tandy 4020-LX 1 Meg 3 1/2" 
Tandy 4025 LX 2 Meg 3 1/2" 
Tandy 4033 LX 2 Meg 3 1/2" 
Tandy 5000MC 2 Meg 1 Drive 
Tandy 5000MC 2 Meq 84 Meq 
Tandy 102 24K 
Tandy Color 3 128K 
WP-2 Wordprocessor 
WP-100 Wordprocessor 

MONITORS & CARDS 

VM-5 Monochrome Green 
CM-5 Color RGB 
CM-11 Color RGB 
Magnavox 9CM053 Color EGA 
Packard Bell Monochrome TTL 
Paradise Basic EGA Card 

DISK DRIVES 

5 1/4" External Drive 1000HX 
Tandy 20 Meg Hard Card 
30 Meg Hardcard 
Weltec 5 1/4" for Tandy 1400 
Seagate 20 Meg Drive & Card 

MODEMS 

Prac. Peripherals 1200B Internal 
Prac. Peripherals 2400B Internal 

PRINTERS 

DMP- 107 Dot-Matrix 
DMP-133 Dot-Matrix 
DMP- 300 Dot-Matrix 
Epson LX-810 Dot-Matrix 
Epson FX-850 Dot-Matrix 
Epson LQ-510 Dot-Matrix 
Epson LQ-850 Dot-Matrix 
Epson FX-1050 Dot-Matrix 
Panaonic KX-P1 180 Dot-Matrix 
Panasonic KX-P1 191 Dot-Matrix 
Panasonic KX-P1 124 Dot-Matrix 



549.00 

755.00 

955.00 

805.00 

1210.00 

1975.00 

1239.00 

1495.00 

2235.00 

2950.00 

3650.00 

5049.00 

3825.00 

5395.00 

435.00 

155.00 

285.00 

495.00 



115.00 
220.00 
315.00 
370.00 
89.00 
99.00 



180.00 
450.00 
395.00 
215.00 
269.00 



75.00 
175.00 



210.00 
279.00 
479.00 
195.00 
365.00 
345.00 
585.00 
485.00 
195.00 
265.00 
329.00 



Alt p<.cai and offers ma, be Cungod tx wfftd'nwn without notice Au«»i 
hmo pxtn am r«n p'ces COO accepted add 2*t> (mi«im u m crura* 
SiOOO) VC Visa add ?*» AH no*i dof*ct»» items 'eqime 'eluti 
metCuindise Jotriort/atiO" C«B lot RMA NumDe* More reluininQ 
Ortti.n'y it suDjeci to pioduci availab<<iiv Add l'j*n <o> sluopmg and 
r^ndiing 15 ff 1 minimum charge 

tm Registered Trademark ol Tandy. Epson, and IBM 
Monday thru Friday 9am - 5pm EST. 

LJUQDD — ■ 

idddd ■*■: 

3 ^ramrauaiE 



DDDDD 



124 South Main Street, Perry. Ml 48872 

CALL 1-517-625-4161 or TOLL-FREE 

1-800-248-3823 
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Wishing Well 



It Strikes a Chord 



by Fred B. Scerbo 

Contributing Editor 



If you have an idea for the "Wishing 
Well." submit it to Fred do the rain- 
bow. Remember, keep your ideas spe- 
cific, and don' t forget this is basic. All 
programs resulting from your wishes 
are for your use. hut remain the prop- 
erty of the author. 



Two months ago the CoCo took a 
dive into the world of music 
education with the listing of Music 
101. As I predicted, there are 
more music programs coming 
down the pipeline. 

This month 1 present Music 102, another 
educational musical program that helps 
new music students learn to read music. 

The Program 

Music 101 was designed to introduce 
the user to the structure of simple music 
theory. Before you can delve deeply into 
this area, you need to know basic terms 
such as whole note, half note, quarter note, 
etc. Music 101 covers that territory quite 
nicely. 

Now Music 102 goes one step further. 
After drawing a staff with the G clef on it. 
the program draws a set of octave notes 
from C-natural to B-natural. Using our 
standard PM0DE1 educational screen and 
format from previous educational listings, 
each note is displayed with its identifying 
name. 

In music theory there are some notes 



Fred Scerbo is a special needs instructor 
for the North Adams Public Schools in 
North Adams. Massachusetts. He holds a 
master's in education and has published 
some of the first software available for the 
Color Computer through his software firm . 
Illustrated Memory Banks. 



that can be presented in two different ways. 
For example. C-sharp is the same note as 
D-flat. yet both are drawn on the staff 
differently and in different line locations. 
(Without going into too much detail, whether 
you use the sharp or tlat depends on what 
key your song is written in.) With this in 
mind, I have drawn both versions of each 
note so the user can learn all the notes on the 
staff. 

I took accordian lessons as a child, and 
reading music was always difficult forme. 
I was one of those students who tended to 
play by ear. In preparing this listing I had 
my nephew, Christopher, draw out all the 
notes and positions I needed to display. I 
was not going to let my faulty memory 
cause me to leave something out. 

Running the Program 

If yon have used any of my recent edu- 
cational listings, most of this will be old 
hat. After the title card appears, press ENT- 
ER to see the menu. 

Selection A lets you review all the 
material by pressing enter. Quiz B and 
Quiz C are the same, except the informa- 
tion requested (the note or the name) is 
reversed. Use the space bar to advance 
through the choices. Press ENTER when you 
have a match. If you are not correct, the 
screen Hashes. If you are correct, the match 
is shown again. Pressing the @ key gives 
your score at any time, and pressing C 
allows you to continue if any tries are still 
left. There are a total of 17 notes to view, 
counting all the sharps and flats. 

A Bonus 

Next month. Music 103 will show the 
same skill using the bass clef or F clef, 
which is read differently from the G clef. 
For more advanced students. I have changed 
the listing so when the time comes, you can 
merge the two programs and quiz all the 
material at once. 



In the meantime, keeping the programs 
separate is much more logical since music 
education must proceed slowly at first. 

Let me know if there are any topics you 
would like to see in future months. (A game 
is in the works!) See you next month. 



32K Extended 




15 28 

40 86 

65 47 

85 47 

120 93 

140 179 

185 118 

225 199 

260 59 

305 72 

335 23 

365 207 

390 87 

405 254 

420 230 

435 201 

455 157 

465 

480 65 

495 77 

510 83 

525 83 

540 174 

1000 61 

END 177 



The Listing: MUSIC102 

1 REM*************************** 

2 REM* MUSIC 102:READING G CLEF* 

3 REM* COPYRIGHT (C) 1990 * 

4 REM* BY FRED B. SCERBO * 

5 REM* 60 HARDING AVENUE * 

6 REM* NORTH ADAMS. MA 01247 * 

7 rem*************************** 

8 CLEAR5000:XX-RND(-TIMER):NN-17 
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9 CLS0 : PRINTSTRI NG$ ( 32 . 220 ) : STRI 

NG$(32.204); :F0RI-1T0224:READA:P 
RINTCHR$(A+128): :NEXT 

10 PRINTSTRING$(32.195):STRING$( 
32.211): 

15 PRINT@390." READING G CLEF 

20 PRINT@422." BY FRED B.SCERBO 
": :PRINT@4b4," COPYRIGHT (C) 1 
990 "j 

25 DATA61.60.60.62.60.61.48.61.. 
..62.48.62.60.60.60.61.48.61.56. 

53.60.60.60.61.48 

30 DATA53...58..53..53 58.48. 

58 53. .53 

35 DATA53...58..53..53 58.48. 

58 53. .53.. .71. .78.76.77.68 

.76.77 

40 DATA53. . .58. .53. .53. .. .58. .60 

.60. 60. 60. 61. .53. .53. ..69. .74. .6 

9.69.76.76 

45 DATA53.. .58. .53. .53. .. .58 

..53. .53. .53. ..76. 72. 76. 76. 76. 68 
.76.76 

50 DATA53 53. .53 58,. 50. . 

..53. .53. .53 49 

55 DATA60, 56. .. .60.56.52.60.60.6 
0.56. .60,60.60.60.60. .60.56.52.6 

0.60.60.60 

60 X$-INKEY$:IFXSOCHR$(13)THEN6 





65 NN-NN+1:DIM P$(NN.3) .A$(6) .B$ 

(NN).C$(NN).A(NN).N(NN).8(4).C(4 

).D(4).E(4).F(4).A0(NN):NN-NN-1 

70 CL$-"BR14BD14NR98BD10NR98BD10 

NR98BD10NR98BD10NR98R14ND10U50F6 

D8G18D8F10R6E8U8H4L10G4D4F4R4E4U 

2" 

75 FORI-1T03:REAO C( I ) . D( I ) , E( I ) 

.F(I):NEXT:F0RI-1T06:READA$(I):N 

EXT:FORI-lTO NN : READP$( 1 . 1 ) . P$( I 

.2):P$(I.1)-CL$+P$(I.1):NEXT 

80 COLOR1.0 

85 CLS : PRINT: PRINTSTRI NG$( 32."-" 

);:PRINT@102."AN INTRODUCTION TO 

":PRINT@137."G CLEF NOTES":PRINT 

8199, "A) REVIEW N0TES":PR1NT@263 

."B) QUIZ N0TES":PRINT@327."C) R 

EVERSE NOTES" 

90 PRINT@388."<«SELECT YOUR CHO 

ICE»>" 

95 PRINT:PRINTSTRING$(32. "-"): 

100 X$-INKEY$:X-RND(-TIMER):IFX$ 

-"A"THEN355ELSEIFX$-"B"THEN105EL 

SEIFX$-"C"THEN1000ELSE100 

105 CLS0:PMODE0.1:PCLS1 

110 LINE(0.0)-(254. 170). PRESET. B 

115 LINE(6.4)-(122.82).PRESET.BF 

120 LINE( 128.4) - (248. 82). PRESET. 



125 LINE(6.86)-(122. 164). PRESET. 

B 

130 LINE( 128.86) - (248. 164) . PRESE 

T.B 

135 DRAWBM26.188C0NU10R10NU10BR 

6R10U6L10U4R10BR6NR10D4NR10D6R10 

BR12BU6NE4D2F4BR6R10U6L10U4R10BR 

6ND10R10D4NL10BR6NR10D6U10R10D10 

BR6NR10U10R10BR6NR10D4NR10D6R10B 

R10U10NL4R10D4NL10D6NL14BR6U10R1 

0D4NL10D6BR6U10R10D4L10R4F6BR6E4 

U2H4" 

140 DATA130.6.246.80.6.86.120.16 

2.130.86.246.162 

145 PAINT(2.2).0.0:PCOPY1TO3 

150 PMODE0.4:PCLS1 

155 LINE(0.0)-(254. 170). PRESET. B 

F 

160 LINE(8.6)-(120.80).PSET.BF 

165 PCOPY4TO2:PMODE0.1:SCREEN1.1 

170 DATA"BM2.8C1"."BM130.8C0","B 

M2,90C0"."BM130.90C0"."BM2.48C0" 

."BM130.48C0" 

175 FORI-1TO NN 

180 A(I)-RND(NN):IFN(A(I))-1THEN 

180 

185 N(A(I))-l:NEXTI:FORY-lTO NN: 

COLOR1.0 

190 FORI-2T04 

195 B(I)-RND(3)+1:IFN(B(I))-0THE 



_____ __ _______ . COMM . 4 " - - •::•■ "r; ?F : V . S: ;;;«::-.; : ; , ■■- 

ATrKJSTIONIl! Alpha software technologic* has teamed up with COCO device- to brinff you the incredible COMM • 4 port! 4 porta in. one. *lo« That's right, up 
to 4 unci, at one tima! Special pulsnd IRQ line helps to prevent lockups! External IRQ line allows you to connect to an IRQ hack mod Totally compatible eSSl 
technology, no special drivers needed! Comes complete with networking software that allows multiple computers to share pcripheraU! A must for any BBS 
user! A perfec t match for OSB Level I! BBS! ____.„.: .-_^„____, ;__; i :'■.. ..,.,:-:■: ■•■■■ ,.„■,„ ,//..,.. ....:' ,■„.■,.■■,,'• ■■%;,■; V ,; '....■ j_ ___ _..____.:______$1_4,95 

OS9 Level II BBS Release 3.0 

System comes complete and ready to run. Use the build in menus or create your own. Run your own programs or games on- line! Complete message system included. File 
transfer system supports Xmodem and Ymodcm plus automatic validation with keyword searching! Even comes with its own terminal program free! Now includes ANSI graphics 
menus and editor! Sec board while it runs! For a DEMO call(504)649-5761 (3/12/2400 Baud). Galactic Conflict game also included! 
512k OS9 Level II and RS-232(or COMM-4) pak required _ _ S 29.95 

Presto - Partner 

This is what you have been waiting for! Finally RAM-Resident software for your COCO 3! Runs in the background while you do other work! Includes a note-pad that docs 
automatic number calculations, a calendar with alarm, a phone book that can auto-dial your phone, a real-time clock and much, much, more! This program will organize your 
entire life! 512k OS9 I_vcl II Required (Hayes compatible modem required for auto-dial) 512k OS9 Level II Required ...„ $ 29.95 

Level II Tools 

Without the right tools OS9 is difficult...Thosc ARE the right tools! With these great utilities anyone can use OS9 liko a pro! Complete wildcard, tree and windowing commands 

make OS9 easy to use! Ifyou want to start using OS9, this is what you need! If you already use OS9, these tools will save you hours of time and headaches! 

25 great utilities in one package „ „ „..„..„ M $24.95 

Disk Manager Tree 

This versatile utility makes your OS9 life a breeze! No more fighting with complex directory structures! No more searching for files and typing long path names! Everything is 
displayed using windows! Allows you to change, create, and delete directories with single keystrokes! Also allows you to copy, view and delete files just as easily! A must for the 
OS9 beginner. A groat lime saver for the experienced OS9 user. Save hours of time and headaches! 512k OS9 Level II Required _ $ 29.95 

Multi - Menu 

This great Multi-Vue utility allows you to easily create your own pop-down menus! No programming experience is required, because no programming is done! You will be able to 
run any OS9 command or program from a menu! Menu creation is super simple, super easy! Actually see the menu as it develops. A must for Multi-Vue users! Make that non 
Multi-Vue software run in Multi-Vuo! 512k OS9 Level II and Multi-Vue required „ „ _ _ _ „ $ 19.95 

Warp-One 

Finally, a complete OS9 Level II windowing terminal program. Many features include Auto-dial _ macro, X _ Y modem, ANSI graphics, buffer capture, on-line timer, chat mode, 
windows, and much, much, more! Perfect for any BBS user! More power that you'll ever need! 512k OS9 Level II & RS-232 Pak Required $ 34.95 

The Zapper 

This wonderful utility allowB you to patch anything! Patch commands directly on disk and fix CRCa automatically! Patch the OS9 Boot file! Save lost files! Fix crashed disks! 
One use of this program could be worth the price! 64k OS9 Level I or II required _..„..„„„ _ .„ $ 19.95 

Send check or money order to: Alpha Software Technologies, 1500 1-10 Service Rd. #61, Slidell, LA. 70461 (Sons*9_i76 (__ 

" •;••". - (S04)64»-&761 (BBS) 

Please add £3.00 Shipping and handling, all orders shipped same day via first class mail. Moat orders arrive in 2 to 3 days. COD orders add $2.50 oxtra. 
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N195 

200 N(B(I))-0:NEXTI:FORI-1TO4:N( 

I)-1:NEXT 

205 B-RND(NN) : 1 FB-AC ( Y ) ) THEN205 

210 C-RND(NN) : I FC-B OR C-A((Y))T 

HEN210 

215 DRAW A$(l):DRAWP$(A(Y).l) 

220 DRAW AJ(B(2)):DRAWP$(B.2):DR 

AWP$(B.3) 

225 DRAW A$(B(3)):DRAWPS(C.2):DR 

AWP$(C.3) 

230 DRAW A$(B(4)):DRAWP$(A(Y),2) 

:DRAWP$(A(Y>.3) 

235 COLOR1.0 

240 Z-0 

245 PMODE0.4 

250 DRAW A$(1)+"C0":DRAWP$(A(Y). 

1) 

255 DRAW A$(B(2))+"C1":DRAWP$(B. 

2):DRAWP$(B.3) 

260 DRAW A$(B(3))+ M Cr , :DRAWP$(C. 

2):DRAWP$(C.3) 

265 DRAW A$(8(4))+"C1":DRAWP$(A( 

Y).2):DRAWP$(A(Y).3) 

270 PMODE0.1:SCREEN1.1 

275 LINE(8.6)-(120.80).PSET.B 

280 X$-INKEY$:IFX$-" "THEN290ELS 

EIFX$-"@"THEN1010 

285 COLOR1.0:LINE(8.6)-(120.80). 

PRESET. B:GOT0275 

290 Z-Z+l : I FZ-4THENZ-1 

295 COLOR1.0:LINE(C(Z).D(Z))-(E( 

Z).F(Z)).PSET.B 

300 X$-INKEY$:IFX$-" "THEN290ELS 

EIFX$-CHR$(13)THEN310ELSEIFX$-"@ 

"THEN1010 

305 COLOR1.0:LINE(C(Z).D(Z))-(E( 

Z).F(Z)). PRESET. B:GOT0295 

310 IFZ+1-B(4)THEN320 

315 NW-NW+1:FORK-1TO5:PMODE0.4:S 

CREEN1.1:SOUND10.3:PMODE0.1:SCRE 

ENl.l:SOUND1.3:NEXTK:GOT0295 

320 NC-NC+1:PMODE0.4:PCLS1:LINE( 

0.40) -(256. 126). PRESET. B:LINE( 6. 

44) -(124. 122). PRESET. B:LINE( 130. 

44)-(248.122).PRESET.B:PAINT(2.4 

2). 0.0 

325 DRAW A$(5):DRAWP$(A(Y).l) 

330 DRAW A$(6):DRAWP$(A(Y).2):DR 

AWP$(A(Y),3) 

335 SCREEN1.1 

340 X$-INKEY$:IFX$OCHR$(13)THEN 

340 

345 PMODE0.1 

350 PCOPY3T01:SCREENl.l:PCOPY2TO 

4:NEXTY:GOTO1010 

355 PMODE0.2:PCLS1:SCREEN1,1:LIN 

E (0.40) -(256. 126). PRESET. B:LINE( 

6.44)- ( 124. 122) . PRESET.B: LINEC13 

0.44) -(248.1 22). PRESET. B : PAINT( 2 

.42). 0.0 

360 FORI-1TO NN:DRAW A$(5):DRAWP 

S(I.l) 

365 DRAW A$(6):DRAWP$(I.2):DRAWP 

XI. 3) 

370 X$-INKEY$:IFX$OCHR$(13)THEN 

370 

375 COLOR1.0:LINE(8.46)-(122.120 

).PSET.BF:LINE( 132.46) -(246. 120) 

.PSET.BF.-NEXTI 

380 RUN 

385 DATA"BR64BD24NU36R4L24R2E6R6 

F4D4G4L6H4BL22BU4U34E4R6F4D2G4L6 

H4U2" 



390 DATA"BR12BD50U12F12NU12BR6U1 

2R8D6NL8D6BR10U12L4R8BR6D12R8NU1 

2BR6U12R8D6L8R2F6BR6U12R8D6NL7D6 

BR6NU12R8BU24BL48L8U12R8" 

395 DATA"BR64BD24NU36R4L24R2E6R6 

F404G4L6H4BL22BU4U34E4R6F4D2G4L6 

H4U2BH6BL2D14BL4U14D4L4R12L4D6R4 

L12BD24BR30D14BL4U14D4L4R12L4D6R 

4L12" 

400 DATA"BR26BD50R8U6L8U6R8BR6D1 

2U6R8U6D12BR6U12R8D6NL8D6BR6U12R 

8D6L8R2F6BR6U12R8D6L8BU18BL22L8U 

12R8" 

405 DATA"BR64BD18NU36ND2BL14E4R6 

F4D4G4L6H4U2BL22BU2U36E4R6F4D4G4 

L6H4U2BH6BL4D14E4U2H4BD30BR24D14 

E4U2H2" 

410 DATA"BR36BD50U6NR8U6R8BR6D12 

R8BR7U12R8D6NL8D6BR10U12L4R8BL32 

BU12R8NU12L10R2U12L2R10" 

415 DATA"BR64BD18NU36ND2BL14E4R6 

F4D4G4L6H4U2BL22BU2U36E4R6F4D4G4 

L6H4U2" 

420 DATA"BR12BD50U12F12NU12BR6U1 

2R8D6NL8D6BR10U12L4R8BR6D12R8NU1 

2BR6U12R8D6L8R2F6BR6U12R8D6NL7D6 

BR6NU12R8BU24BL48NU12L10R2U12L2R 

10" 

425 DATA"BR64BD18NU36ND2BL14E4R6 

F4D4G4L6H4U2BL22BU2U36E4R6F4D4G4 

L6H4U2BH6BL2D14BL4U14D4L4R12L4D6 

R4L12BD24BR30D14BL4U14D4L4R12L4D 

6R4L12" 

430 DATA"BR26BD50R8U6L8U6R8BR6D1 

2U6R8U6D12BR6U12R8D6NL8D6BR6U12R 

8D6L8R2F6BR6U12R8D6L8BU18BL30R8N 

U12L10R2U12L2R10" 

435 DATA"BR64BD14NU36R4L24R2E6R6 

F4D4G4L6H4BL22BU4U34E4R6F4D2G4L6 

H4U2BH6BL4D14E4U2H4BD30BR24D14E4 

U2H2" 

440 DATA"BR36BD50U6NR8U6R8BR6D12 

R8BR7U12R8D6NL8D6BR10U12L4R8BL26 

BU12L8U6NR8U6R8" 

445 DATA"BR64BD14NU36R4L24R2E6R6 

F4D4G4L6H4BL22BU4U34E4R6F4D2G4L6 

H4U2" 

450 DATA"BR12BD50U12F12NU12BR6U1 

2R8D6NL8D6BR10U12L4R8BR6D12R8NU1 

2BR6U12R8D6L8R2F6BR6U12R8D6NL7D6 

BR6NU12R8BU24BL48L8U6NR8U6R8" 

455 DATA"BR64BD8NU36ND2BL14E4R6F 

4D2G4L6H4BL22BU2U36E4R6F4D4G4L6H 

4U2" 

460 DATA"BR12BD50U12F12NU12BR6U1 

2R8D6NL8D6BR10U12L4R8BR6D12R8NU1 

2BR6U12R8D6L8R2F6BR6U12R8D6NL7D6 

BR6NU12R8BU24BL56U6NR8U6R8" 

465 DATA"BR64BD8NU36ND2BL14E4R6F 

4D2G4L6H4BL22BU2U36E4R6F4D4G4L6H 

4U2BH6BL2D14BL4U1404L4R12L4D6R4L 

12BD24BR30D14BL4U14D4L4R12L4D6R4 

L12" 

470 DATA"BR26BD50R8U6L8U6R8BR6D1 

2U6R8U6D12BR6U12R8D6NL806BR6U12R 

8D6L8R2F6BR6U12R8D6L8BU18BL30U6N 

R8U6R8" 

475 DATA"BR64BD4NU36R4L24R2E6R6F 

4D4G4L6H4BL22BU4U34E4R6F4D2G4L6H 

4U2BH6BL4D14E4U2H4BD30BR24D14E4U 

2H2" 

480 DATA"BR36BD50U6NR8U6R8BR6D12 

R8BR7U12R8D6NL8D6BR10U12L4R8BL26 

BU12NU6L8U12R8BD6L2" 



485 DATA"BR64BD4NU36R4L24R2E6R6F 
4D4G4L6H4BL22BU4U34E4R6F4D2G4L6H 
4U2" 

490 DATA"BR12BD50U12F12NU12BR6U1 
2R8D6NL8D6BR10U12L4R8BR6D12R8NU1 
2BR6U12R8D6L8R2F6BR6U12R8D6NL7D6 
BR6NU12R8BU24BL48NU6L8U12R8BD6L2 

495 DATA"BR64BD4NU36R4L24R2E6R6F 

4D4G4L6H4BL22BU4U34E4R6F4D2G4L6H 

4U2BH6BL2D14BL4U14D4L4R12L4D6R4L 

12BD24BR30D14BL4U14D4L4R12L4D6R4 

L12" 

500 DATA"BR26BD50R8U6L8U6R8BR6D1 

2U6R8U6D12BR6U12R8D6NL8D6BR6U12R 

8D6L8R2F6BR6U12R8D6L8BU18BL22NU6 

L8U12R8BD6L2" 

505 DATA"BR64BU2NU32ND2BL14E4R6F 

4D2G4L6H4BL22BU2U32E4R6F4G4L6H4N 

L6NR18BH6BL4D14E4U2H4BD30BR24D14 

E4U2H2" 

510 DATA"BR36BD50U6NR8U6R8BR6D12 

R8BR7U12R8D6NL8D6BR10U12L4R8BL26 

BU12U12L8D6NR8D6" 

515 DATA"BR64BU2NU32ND2BL14E4R6F 

4D2G4L6H4BL22BU2U32E4R6F4G4L6H4N 

L6R18" 

520 DATA"BR12BD50U12F12NU12BR6U1 

2R8D6NL8D6BR10U12L4R8BR6D12R8NU1 

2BR6U12R8D6L8R2F6BR6U12R8D6NL7D6 

BR6NU12R8BU24BL48U12L8D6NR8D6" 

525 DATA"BR64BU2NU32ND2BL14E4R6F 

4D2G4L6H4BL22BU2U32E4R6F4G4L6H4N 

L6NR18BH8BL2D14BL4U14D4L4R12L4D6 

R4L12BD24BR30D14BL4U14D4L4R12L4D 

6R4L12" 

530 DATA"BR26BD50R8U6L8U6R8BR6D1 

2U6R8U6D12BR6U12R8D6NL8D6BR6U12R 

8D6L8R2F6BR6U12R8D6L8BU18BL22U12 

L8D6NR8D6" 

535 DATA"BR64BU6NU30R4L24R2E6R6F 

4D4G4L6H4BL22BU4U30E4R6F4G4NR6L6 

NL8H4BH6BL4D14E4U2H4BD30BR24D14E 

4U2H2" 

540 DATA"BR36BD50U6NR8U6R8BR6D12 

R8BR7U12R8D6NL8D6BR10U12L4R8BL26 

BU12L10R2U6NR8U6L2R10D12" 

545 DATA"BR64BU6NU30R4L24R2E6R6F 

4D4G4L6H4BL22BU4U30E4R6F4G4NR6L6 

NL8H4" 

550 DATA"BR12BD50U12F12NU12BR6U1 

2R8D6NL8D6BR10U12L4R8BR6D12R8NU1 

2BR6U12R8D6L8R2F6BR6U12R8D6NL7D6 

BR6NU12R8BU24BL48NU12L10R2U6NR8U 

6L2R10" 

1000 CLS0:FORI-1TO NN:TEM$-P$( I , 

l):Pt(I.l)-P$(I.2):P$(I.2)-TEM$: 

NEXT 

1005 GOTO105 

1010 CLS:PRINT@101."YOU TRIED"NC 

+NWTIMES &":PRINT@165. "ANSWERED 

"NC"CORRECTLY" 

1015 PRINT@229. "WHILE DOING"NW"W 

RONG." 

1020 NQ-NC+NW:IF NO-0THEN NQ-1 

1025 MS-INT(NC/NQ*100) 

1030 PRINT@293."YOUR SCORE IS"MS 

1035 PRINT0357. "ANOTHER TRY (Y/N 

/C) ?": 

1040 X$-INKEY$:IFX$-"Y"THEN RUN 

1045 IFX$-"N"THENCLS:END 

1050 IFX$-"C" AND Y<-17 THEN270 

1055 GOTO1040 —. 
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Expanding Horizons 

Take your CoCo beyond the 
limits of floppy diskettes — 
connect to DELPHI, your 
complete online business 
and personal resource. 
With your modem and a local 
phone call, select from tens of 
thousands of downloadable 
programs, meet friends from 
across the globe, or tap into the 
world's most comprehensive 
databases to expand the 
horizons of your CoCo. 

Your Resource for 
Color Computers 

DELPHI'S special 
group for owners of 
Tandy Color 
Computers is sup- 
ported by the people 
who bring you RAINBOW 
Access extensive databases 
where you can upload your 
favorite files and download 
programs written by other 
personal computer enthusiasts. 
Chat with other members and 
resident experts in Conference, 
use electronic mail, and post or 
respond to messages in Forum. 

OS-9 Online 




What 

your CoCo 

was really 

meant 
for. 



In OS-9 Online, DELPHI'S 
interest group for fans of the 
OS-9 operating system, you'll 
meet other members, download 
files, and get tips to help you 
make the most of your CoCo. 



RAINBOW Online 

DELPHI is your online connection 
RAINBOW. You can renew your 
subscription, meet other 
Color Computer owners, 
order software or hard- 
ware, or inquire about 
products. You can even 
download programs pub- 
lished in RAINBOW. 



to 




Wallet-Fr iendly 

You can access DELPHI with a local 
phone call from almost anywhere in 
the United States. There is NO extra 
charge for using Tymnet or Telenet, 
NO monthly minimum, NO 
premium for 1200 or 2400 bps, and 
connect rates are a low $7.20/hour. 



FREE Lifetime Membership 

As a RAINBOW subscriber, you 
get a FREE lifetime DELPHI mem- 
bership ($29.95 value) which in- 
cludes a credit worth one evening 
hour of usage ($7.20). 
If you don't already subscribe to 
RAINBOW, just request a subscrip- 
tion when you sign-up to DELPHI, 
and, for the $31 subscription fee, 
you'll get the same great deal! 

Sign up now - Online! 

With your CoCo and modem: 

1. Dial 1-617-576-2981.* 

2. Once connected, 
press RETURN once 
or twice. 

3. At Usemame:, tvpe 
JOINDELPHl" 

4. At Password:, type 
RAINBOW, if 
you already subscribe to 
RAINBOW. 

Type SENDRAINBOW, if yo 
do not yet subscribe and wish 
do so. 

5. Have credit information ready. 

* Or call DELPHI Member Services 
by voice at (800)544-4005 to 
obtain a local access phone 
number. 




u 
to 



No Risk 

With DELPHI there is no risk. You 
can cancel your membership within 
30 days and pay only for your usage 
beyond the initial one-hour credit. 



DELPHI 



<"»•■ 



The World's Premier Online Information Service 

General Videotex Corporation • Three Blackstonc St • Cambridge MA 02139 
800-544-4005 • 617-491-3393 




The Intercom 



An important link in the CoCo community is its ability to communicate with fellow users. If questions arise, afresh source of information 
can be invaluable. We here at THE RAINBOW have decided to create "Intercom "an information exchange point for Pen Pals. CoCo Clubs 
and BBSs. 

If you would like a Pen Pal or are running a CoCo Club or BBS. send us a letter including the information listed here to: The Rainbow 
Intercom. P.O. Box 385, Prospect. KY 40059. 

Only those parties who have signed our non-piracy "agreement form" will appear in listings of Intercom. Also, please notify us if 
you wish to add or delete any names on this list. 



Pen Pals 



• I am 1 2 years old and would like lo have a pen 
pal close to my age. 1 enjoy most games and 
have a CoCo 3, one disk drive and a DMP-105. 
I have only had my computer one year. 1 speak 
English but I can also speak French fluently. 

Ann McFadden 

Box 731 

Cochrane. AB TOL 0W0 

Canada 

• I am a 20-year-old graduate of John Abbot 
College in Montreal and am looking for pen pals 
of any age. I have a CoCo 1 . a CoCo 2. a DMP- 
105 and a cassette recorder. I have been using 
the CoCo for eight years, and I'm interested in 



both BASIC and assembly language. I also 
enjoy good Adventure and action games. 

Michael Mattsson 

7 Fairwood St. 

Pointe Claire. PQ H9R 2SI 

Canada 

• I am 13 years old and in the eighth grade. I 
would like a pen pal from anywhere. I own a 
64K CoCo 2. an FD-502. a DMP-I30A and a 
CCR-8 1 cassette recorder. 1 would like a person 
who could help me with different programs. 

Heather Yurkovich 

75ChesnutSt.Box493 

Ellsworth. PA 15331 



• 1 am 15 years old and own a 64K CoCo 2. an 
FD-501 drive, a DMP-105 and a DCM modem. 
1 (anyone would like to be pen pals, please write. 
1 will answer all letters. 

Joe Ahern 

65 Oak Road 

Canton. MA 02021 

• 1 am looking for a pen pal. I'm 13 years old. I 
have a CoCo 2. two disk drives, a CCR-82, a 
DMP-132 and a lot of games. 

Daniel Collins 

P.O. Box 108 

Orrington. ME 04474 



CoCo Clubs 



ARIZONA 

Tucson Color Computer Club. Bruce Smith. 
3030 Mustang Dr.. Tucson. 85708. (602) 747- 
7859 

CALIFORNIA 

Citrus Color Computer Club. Orville Beaver, 
P.O. Box 6991. San Bernardino. 92412-6991. 
(714)685-6334 

Color America Users Groups. Jack W. Eizenga. 
3811 N. Foster Ave.. Baldwin Park. 91706- 
3912.(818)960-8010 

MarysvilleWuba City Area CoCo Club. Jim 
Vestal. P.O. Box 5126, Marysville. 95901. (916) 
742-5499 

CONNECTICUT 

Southeastern Connecticut Color Computer Users 
Group. Larry Donovan. 25 Stonv Brook Road. 
Stonington. 06378. (203) 535-421 1 

GEORGIA 

Atlanta Computer Society. Inc.. Alan R. Dages, 
4290 Bells Ferry Road, Suite 10639. Kennesaw. 
30144, (404) 469-51 1 l(voice). (404) 636- 
2991 (modem) 

IDAHO 

Snake River Color Computer Club, Emil Fran- 
klin. 1750 Carmel Drive. Idaho Falls. 83403. 
(208)522-0220 



ILLINIOS 

Motorola Micro Computer Club. Steve Adler. 
1301 East Algonquin Road. Shaumburg, 60196. 
(708)576-3044 

Cook County Color Computer Club. Howard 
Luckev, 10 McCarthy Road. Park Forest. 60466- 
2122,(708)747-0117 

Chicago OS-9 Users Group, Roger C. Hal- 
vorsen. 1598 Ardmore Ave.. Glendale Heiehts. 
60139,(708)469-8174 

Starved Rock Color Computer Club. Neal 
Roberts, 1250 E. Bluff. Marseilles, 61341. (815) 
795-4894 

Quincy Color Computer Club, Steve Wellman, 
1600 Highland Lane. Quincy. 62301. (217) 
224-8307 

IOWA 

Metro Area Color Computer Club. Joe Caval- 
laro.2425Ave.A.CouncilBluffs.5l501.(7l2) 
322-2438 

Mid Iowa CoCo. Terry Simons. 1 328 48th. Des 
Moines, 503 1 1 . (5 1 5 ) 279-2576 

LOUISIANA 

The CoCo Sig. Christopher Mayeux. 20 Gibbs 
Drive. Chalmette. 70043. (504) 277-6880 
(voice) or (504) 277-5 135 (modem) 



MARYLAND 

Arkade. John M. Beck. 35 1 3 Terrace Drive. #D. 
Suitland. 20746.(301)423-8418 

MICHIGAN 

Greater Lansing Color Computer Users Group. 
E. Dale Knepper. P.O. Box 14114. Lansing. 
48901.(517)626-6917 

NEW YORK 

The Island CoCo Club. Dennis Zonel. P.O. Box 
426. Massapequa. 1 1 762 

Kings Byte CoCo Club. Morty Libowitz. 1063 
E. 84th St.. Brooklyn. 1 1236. (718) 763-4233 

NORTH CAROLINA 

Norca Users Group. Matthew Royal. Rt. 21. 
Box 906. Fayetteville. 28304. (919)484-1230 

OHIO 

Dayton Color Computer Users Group. Steven 
E. Lewis. 4230 Cordell Drive. Dayton. 45439. 
(513)299-3060 

Tri County Computer User Group. Ron Potter. 
10914 Oliver Road. Cleveland. 441 1 1. (216) 
476-2687 

PENNSYLVANIA 

Cumberland Valley Users Group. Thomas 
Martin. 9085 Newburg Road. Newburg. 1 7240. 
(717)423-5525 
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Pittsburgh Color Group. Ralph Marling. 309 
Frazier Drive. Pittsburgh. 15235. (412) 823- 
7607 

RHODE ISLAND 

New England "CoCoNuts" Color Computer 

Club. Arthur J. Mendonca. P.O. Box 28106 

North Station. Providence. 02908. (401) 272- 

5096(Sig3) 

SOUTH CAROLINA 

Spartanburg CoCo Club. Jesse W. Parris. 152 
Bon Air Ave.. Spartanburn. 29303. (803) 573- 
9881 

SOUTH DAKOTA 

Empire Area Color Computer Users Group of 
South Dakota. Carl Holt. P.O. Box 395, Bran- 
don. 57005. (605) 582-3862 



Mid Cities TRS-80 Users Group. Rob Yoder. 
P.O. Box 1 7 1 566. Arlington. 76003. (8 1 7) 535- 
7931 

VIRGINIA 

Southwestern Virginia Color Computing Club. 
Ricky Sutphin. Route I. Box 20. Henry. 24102. 
(703)365-2018 

Richmond Area Color Computer Organization. 
William T. Mays Jr.. 6003 Westbourne Drive. 
Richmond. 23230. (804) 282-7778 



WASHINGTON 

Spokane Color Computer Club, Richard Bay- 
singer. 22 1 7 W. Sanson. Spokane. 99205. (509) 
326-2793 or BBS#(509) 325-6787 



AUSTRALIA 

Australian National OS-9 Users Group, Gordon 
Bentzen, CA 8 Odin Street. Sunnvbank. Queens- 
land 4 1 09. (07)345-5 1 4 1 

Brisbane Southwest Colour Computer Users 
Group. Bob Devries. 2 1 Virgo St.. Inala. Queens- 
land 4077. (61 )-7-37275 16 



CANADA 

Halifax Dartmouth Color Computer Users 
Group. David H. Haley. Comp. #7 Greenforest 
Subdivision. RR#I Lower Sackville. NS B4C 
2S6. (902) 864-0454 

Les CoCophiles Du Sud-Ouest. Jean Labrose. 
20 Ste-Julie #A, Vaudreuil, PQ J7V 1 B5. (514) 
455-0486 



TEXAS 

The Codis CoCo Symphony. William C. Gar- 
retson. 2902 Harvard St.. Irving, 75062, (214) 
570-0823 



WEST VIRGINIA 

Huntington Area Color Computer Symposium. 
Jim Bush. P.O. Box 391. Lesage. 25537-0391. 
(304)736-5314 



PUERTO RICO 

Puerto Rico Color Computer Club. Luis R. 
Martinez. P.O. Box 2072, Guaynabo. 00657- 
7004. (809) 799-82 1 7 or (809) 728-23 14 







BBSs 




State/City 


BBS Name 


Access Number 


Parameters 

(Baud rale Parily-Word BiU-StCf) Bits) 


SysOp 


Arizona 










Peach Orchard 


Communications 










Central BBS HST 


(501)249-3814 


300/1 9.200-N-8-I 


Perry Parsons 


California 










Marysville 


09-Online BBS 


(916)742-6809 


300/1 200-N-8-1 


Jim Vestal 


Florida 










Miami 


A Little R S R 


(305)266-1099 


300/1 20O-N-8-1 


Robert Jones/Robert Caraballo 


Kansas 










Beloit 


Kansas Konnektion BBS 


(913)738-5613 


30O/120O-N-8-I 


Gary N. McCarty 


Massachusetts 










Worcester 


Gosub BBS 


(508)756-1442 


300/1 20O/2400-N-8-1 


Richard Bostock 


Minnesota 










Brainerd 


Brainerd 4-Way 2 


(218)828-1144 


300/1 2O0/24OO-N-8-1 


Mike Lowe 


New Hampshire 










Allenstown 


The CoCoBean BBS 


(603)485-8682 


300/1 200/2400-N-8-1 


David Bean 


New Jersey 










High Bridge 


Hilltop BBS 


(201)638-5698 


300/1 200/2400-N-8-1 


Guy Silliman 


Mercerville 


TAO BBS 


(609)587-2672 


3O0/12O0/2400-N-8-1 


Bob Watson 


Ohio 










Bellaire 


The Phantasm BBS 


(614)676-2505 


300/ 1 200/2400/9600-N-8- 1 


Dave Roth 


Pennsylvania 










Palmer 


ASCII =80= 


(215)252-1608 


300/1 200/2400-E-7-I 


Nevin Keller 


Tennessee 










South Pittsburg 


Base-Net BBS 


(615)837-8352 


300/1 2O0/240O-N-8-I 


Howard Bacon 


Virginia 










Henry 


Public Access-' 


(703)365-2018 


300/1 20O-E-7-1 orN-8-1 


Ricky Sutphin 


Wisconsin 










Gays Mills 


CoCo BBS 


(608)735-4509 


3OO/1200/240O-N-8-1 


Robert & Daven Howard 


Marshall 


Madison Tandy Users Bl 


JS (608)655-3806 


3O0/I20O/24OO-N-8-1 


Fran Selje 


Notes: 










'Kansas Konnekt 


on BBS is up from 10 p.m. t 


3 7 a.m. 






: Brainerd 4-Way 


s up from 8 p.m. Saturday tc 


5 p.m. Friday 






'Public Access is 


up from 1 2:30 a.m. to 9 a.m. 


Monday through Sunday 
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Wrapping the RAINBOW 



How Many Colors 
In a Rainbow? 



Congratulations to Heidi Nelson. RAIN- 
BOW "s art director, and her husband Greg 
on their new arrival. Their daughter 
Merrill was born January 25. She was 
20'/2 inches tall and tipped the scales at 10 
pounds and one ounce. Heidi's son Timmy is adjusting 
well to his new sister, and the whole Nelson family, 
though somewhat tired, is very excited. We're happy 
for them. too. 

Needless to say. Heidi will be taking some time off 
to care for the baby and herself, so you may be seeing 
a little different look in THE rainbow for the next three 
months or so. During this time. O'Neil Arnold will be 
acting in Heidi's capacity. Now, O'Neil is the first to 
admit he is not an illustrator. But he is an artist in his 
own right — what he lacks with an airbrush and colored 
pencils, he more than makes up for with a camera and 
a vivid imagination. For examples of O'Neil's work, 
look at the photos on pages 20 and 92. 

Another change we are working on is the ability to 
separate four-color artwork in-house. Many of you are 
probably wondering just what this means. I'll give you 
a brief overview of the color process in magazine 
production. 

Each page in THE RAINBOW is made up of one or 
more pieces of photographic film. Sometimes several 
sheets of film are overlaid (placed one on top of 
another) to achieve the final page. The resulting films 
for each page are used by the printer to create a 32-page 
signature (we ca\\ thisasigbut it has nothing to do with 
Delphi) for the magazine pages. That's right — the 
press prints 32 pages at one time. 

In the case of black-and-white pages, this process is 
not too difficult. The press operator needs to use only 
black ink in the press. But when we put. say. acolorpho- 
tograph of a CoCo screen on a page, the process 
becomes infinitely more complicated. It would be 
cumbersome to provide all shades of green, purple, etc.. 
in the press. A printing press does not contain an infinite 
number of colors, so colors are not printed directly. 
Then how are they printed? 

Before a color photo or drawing can be printed, it 
must be separated into four primary colors to be used by 
the press: black, yellow, cyan (blue) and magenta (red). 
These four colors are combined to create any color in 
the rainbow and then some. For example, a given shade 
of green can be made using a mixture of yellow and 
cyan dot patterns. So what we get from the company 



that separates our photos is four pieces of film, each 
containing various dot patterns for one of the above 
colors. These films are combined with the other ele- 
ments of the page to create films for each individual 
color. These composited films are then used to burn an 
image into a printing plate. Then the magazine paper is 
run through four presses, each printing the information 
on its plate in a single color whether black, yellow, cyan 
or magenta. The result is the color you see. 

An ongoing problem with this is that having a color 
photo or drawing separated into its color components 
costs a heck of a lot of money. Very recently we began 
looking into various software packages, designed to 
work with our network and typesetting system, that will 
allow us to do our own color separations. Our artists are 
testing these packages by creating on their computers 
artwork that can then be printed on four-color films. 
The idea is that we will soon be able to create whole 
pages of THE RAINBOW, complete with color, electroni- 
cally. As decisions are made about which packages 
we'll use, you'll see more and more examples of color 
in the magazine. 

Within the last two weeks we have gained the ability 
to transfer a Color Computer MCE graphics file to MS- 
DOS, view the image, grab it from the screen, and then 
combine it with text to make a page. We are taking our 
first steps with these new time- and money-saving 
techniques. For this reason we have yet to develop a 
means of viewing other CoCo graphics formats. We 
also have a little work to do before we can actually 
separate color photographs. Still these projects are in 
the works, and you can expect to see the results as we try 
new things. 

The upshot of all this is two-fold. First. I wanted to 
let you know what is involved with the color process in 
the rainbow. Perhaps you'll have a new appreciation 
for the work involved as you see color images in THE 
rainbow and other magazines. Second, you will gain 
an advantage as a result of our using these techniques. 
Not long ago. Art Flexser of SpectroSystems suggested 
we use more screen shots in our feature articles. His 
suggestion is based on the idea that you can learn more 
if you can see what the program is really supposed to do. 
Well.that's where we are headed. And our move into the 
area of in-house color separations will allow us to 
provide this to you in a cost-effective manner. 

— Cray Augsburg 
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SfElMf t)P9 : 



i Menu orlenlcd 

> Upload/download Ascil 

or XMODEM protocol 
• Execute OS-9 commands 

from within XTERM 

$49.95 



XTERM 

OS-9 Communications program 



Definable macro keys 
Works with standard serial port, RS232 
Pak, or PBJ 2SP Pack, Includes all drivers 
Works with standard screen, Xscreen 
WOKDPAK or DISTO 80 column board 

with source $89.95 



' 



ECONOMIST 



— , 



Perform economic analysis to compare differ- 
ent cost and income alternatives! Compute 
present and future Life Cycle Worths for var- 
ious combinations of single, series and gradi- 
ent dollar amounts. Quickly edit and recom- 
pute for sensitivity analysis! Display line 
graphs. Printout data and results. Pull-down 
menus, windows and prompts. Requires os-9 
level II and Basic09. 

$39.95 WITH SOURCE $79.95 



HARDWARE 

512k memory upgrade 
Ram Software 

Ram Disk 

Print Spooler 

Quick Backup 



$99.95 

All three for only 
$19.95 




•Software by CaoVcrtnra 

UN ■"" ■■ »» 



; • 



XWORD 
OS-9 word processing system 

- Works with standard text screen, XSCRF.EN, WORDPAK, or DISTO 

• True character oriented Ml screen editing 

• Full block commands 

■ Find and Replace commands 

• Proportional spacing supported 

■ Full printer control, character size, emphasized, Italics, over strike, 
underline, super/sub-scrlpts 

• 10 header/foolers 

• Margins and headers can be set different for even and odd pages 

$69.95 with source $124.95 

XMt Hub Mall merge capabilities for XWORD 

$24.95 with source $49.95 

XbrhLL OS-9 spelling checker, with 40000 word dictionaries 

$39.95 
XTRIO XWORD/XMERGE/XSPELL 

$114.95 with source $199.95 

XED OS-9 full screen editor 

$39.95 with source $79.95 
XDIS OS-9 disassembler 

$34.95 with source $54.9 5 
XUIK & XOAL Hlcrarchlal directory, OS-9 calculator 

$24.95 with source $49.95 



THE DIRECTOR 

Produces hires picture sound and color animation shows. Completely menu 
driven wan full wiling Great for presentations and vcr's. Requires COCO in 
only. $39.95 



i 
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AND FOR RS DOS 



SMA1L BUSINESS ACCOUTING 

This sales-based accounting package Is de- 
signed for the non-accountant oriented busi- 
nessman. It also contains the ncxibllily for 
the accounting oriented user to set up a double 
entry journal wilh an almost unlimited chart 
of accounts. Includes Sales Entry, transaction 
driven Accounts Receivable and Accounts Pay- 
able, Journal Entry, Payroll Disbursement, 
and Record Maintenance programs. System 
outputs include Balance Sheet, Income State- 
ment, Customer and Vender status Reports, 
Accounts Receivable and Payable Aging Re- 
ports, Check Register, Sales Reports, Account 
Status Lists, and a Journal Posting List. 

$79.95 

INVENTORY CONTROL/SALES ANALYSIS 

This module is designed to handle Inventory 
control, wilh user denned product codes, and 
produce a detailed analysis of (he business' 
sales and the sales force. One may enter/update 
inventory data, enter sales, run five sales anal- 
ysis rcporls, run nve Inventory reports, set up 
product codes, enter/update salesman records, 
and update the SBAP Inventory. 

$59.95 



PAYROLL 

Designed for maintaining personnel and 
payroll data for up to 200 hourly and salar- 
ied employees with 8 deductions each. Cal- 
culates payroll and tax amounts, prints 
checks and maintains year-lo-datc totals 
which can be automatically transferred to 
the SBA package. Computes each pay peri- 
od's totals for straight time, overtime and 
bonus pay and determines taxes to be with- 
held. Aditional outputs Include mailing list, 
listing or employees, year-to-dale federai 
and/or state tax listing, and a listing of cur- 
rent misc. deductions. Suited for use in all 
stales except Oklahoma and Delaware 

$59.95 



PERSONAL BOOKKEEPING 2000 
Handles 45 accounts. Enters cash expenses as 
easily as checks. Handles 26 expense catcgo- 
riesK. Menu driven and user friendly. 

$39.95 



ACCOUNTS RECEIVABLE 

Includes detailed audit trails and history 
reports for each customer, perpares in- 
voices and monthly statements, mailing la- 
bels, aging lists, and an alphabetized cus- 
tomer listing. The user can define net 
terms for commercial accounts or finance 
charges for revolving accounts. This pack- 
age functions as a standalone A/R system or 
Integrates with the Small Business Accting 
package. 

$59.95 

ACCOUNTS PAYABLE 

Designed for the maintenance of vendor 
and A/P Invoice nies. The system prinU 
checks, voids checks, cancels checks, de- 
letes cancelled checks, and deletes paid A/P 
Invoices. The user can run a Vendor List, 
Vendor Status report, Vendor Aged report, 
and an A/P Check Register. This package 
can be used either as a standalone A/P sys- 
tem or can be Intcgralcd wilh the Small 
Business Accounting Package. 

$59.95 
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MICROTECH 

CONSULTANTS 

INC. 



Otaler tnqairirs tnvited 
Author Submission* aatptrd 

OS-9 h 9 Inxdemurk of Microwort 



1906 Jerrold Avenue 
St. Paul, MN 55112 




Ordering Information 

Add $3.00 shipping & handling, MN residents add 6% sales ui, 
Visa, Mastercard, COD (add $3.50), personal checks. 



(612) 633-6161 



Racksellers 



The retail stores listed below carry the rainbow on a regular basis and may have 
other products of interest to Tandy Color Computer users. We suggest you 
patronize those in your area. 



ALABAMA 

Birmingham 

Florence 

Montgomery 

Tuscaloosa 

ALASKA 

Fairbanks 

ARIZONA 

Cottonwood 

Flagstaff 

Phoenix 



Sierra Vista 
Tempe 

Tucson 



ARKANSAS 

Eldorado 
Ft Srolh 
Little Rock 

CALIFORNIA 

Benicla 
Berkeley 

Hollywood 

Los Angeles 



Marysville 
Napa 
North ndge 
Oakland 
Rancho Murieta 
Sacramento 
San Diego 
San Francisco 



San Jose 
Santa Clara 
Santa Monica 
Santa Rosa 
Stockton 
Sunnyvale 

COLORADO 

Aurora 
Boulder 
Colorado Springs 

Delta 

Glenwood Springs 

DELAWARE 
Dover 
Wilmington 



Jefferson News Co. 

Little Professor Book Center 
Anderson News Co. 
Trade 'N" Books 
Turtle's Records and Tapes 



Baker and Baker Booksellers 



AiWGraphicsCo. 
McGaugh s Newsstand 
Houle Books 

Little Professor Book Center 
TRI-TEK Computers 
Livingston's Books 
ASU Bookstore 

Anderson News Co. 
Software, etc. 



Howard's Newsstand 

Ho! Of) the Press Newsstand 

Anderson News Co. 



Ryno Computer Systems 
Dave's Smoke Shop/Lyon Ent. 
Whenlan's Smoke Shop 
Stef-Jen, Inc. 
Universal News Agency 
Center Fold Newsstand 
Circus of Books (2 Locations) 
Software, etc. 
Bookland 

Bookends Bookstore 
Nonhridge Newsstand 
DeLauer's News Agency 
Software Plus 
Tower Magazine 
Seventh Near B 
Booksmith 
Bookworks 
Castro Kiosk 
The Klost on Clement 
Computer Literacy Bookshops 
Computer Literacy 
Mrtjnight Special Bookstore 
Sawyer's News, Inc. 
Harding Way News 
Computer Literacy 



Aurora Newsstand 
Eads News & Smoke Shop 
Hathaway's 
McKinzey-White Books 
Roundhouse Books 
The Book Train 



Plaza News. Inc. 
The Smoke Shop 



DISTRICT OF COLUMBIA 

Washington, D.C. Central Periodicals 
News Room 
The News World. Inc. 
World News. Inc. 



FLORIDA 

Boca Raton 

Dania 

Davie 

Deland 

Ft. Lauderdale 

Gainesville 
Miami 

North Miami Beach 
Orlando 

Pensacola 



Pinellas Park 

Plantation 

Starke 

Sunrise 
Tallahassee 
West Palm Beach 

GEORGIA 

Atlanta 

Bremen 

Clayton 

Cornelia 

Forest Park 

Riverdale 

Savannah 

IDAHO 
Boise 
Moscow 

ILLINOIS 

Centralia 
Champaign 

Chicago 



E. Peoria 

Evanston 

Glencoe 

Lisle 

Lombard 

Orlando Park 

West Frankfort 

INDIANA 

Angola 

Bloomington 
Franklin 
Ft. Wayne 
Greenwood 
Indianapolis 



Lebanon 

Martinsville 

Nappannee 

IOWA 

Des Moines 

KANSAS 

Leawood 
Libera) 
Topeka 
Wellington 

KENTUCKY 

Hopkinsvilie 
Louisville 



LOUISIANA 

Baton Rouge 
Lafayette 
New Orleans 



Bookstop 

Dania News & Books 

Books Unlimited 

Software Plus More 

the Family Bookshop 

Bookstop 

Clarks Out of Town News 

Goering Book Center 

Bookstop 

Joe's News 

Almar Bookstore 

Bookstop 

Phoenix Books 

Anderson News Co. 



Slidell 



MAINE 

Bangor 
Brockton 
Caribou 
Oxford 



MARYLAND 

Baltimore 
Gaithersburg 



Wolfs Newsstand 
Bookstop 

Record Junction, Inc. 
Radio Shack Dealer 
Sunny's at Sunset 
Anderson News Co. 
Great American Book 



Border's 
U.S. News Inc. 

Bremen Eleclronics/Radio Shack 
Allen's Books 'N Crafts 
Electronic Connection 
Fillers News Center 
Riverdale Book & News 
Home Run Video 



Book Shelf. Inc. 
Johnson News Agency 



Books & Co.. Inc. 

Bookmark 

Pages for All Ages, Inc. 

Parkway Drugs 

Redlg's Book Market 

U.I.C BookStore 

Book Market 

World News 

Books 'n Stuff 

Norns Center Bookstore 

Rehn Heurbinger Pharmacy 

Book Nook 

Empire Periodicals 

Book Link. Inc. 

Paper Place 



DSD Electronics 
Radio Shack 
Book Corner 
Gallery Book Shop 
Michiana News Service 
Community Newscenter 
Borders Bookshop 
Community Newsletter 
Indiana News 
Southside News 
Gallery Book Shop 
Radio Shack 
Richard's K-40 Electronics 



Thackery's Books, Inc. 



Leawood Book Gallery 
CDS Ventures 
Palmer News, Inc. 
DandyVRadio Shack Dealer 



Hobby Shop 

Hawley-Cooke Booksellers 
(2 Locations! 



City News Stand 
Oil Center Newsstand 
Bookstore 
Oliver's Newsstand 
Sidney's News Stand Uptown 
The Book Shelf 
Nonhshore News 



Magazines. Inc. 
Voyager Bookstore 
Radio Shack 
Books-N-Things 



Gordon's Booksellers 
News 2 U 



MARYLAND(con't) 

Ocean City 
Silver Spring 

MASSACHUSETTS 

Boston 

Greenfield 

Lenox 

Lexington 

Littleton 

Maynard 

Swansea 

MICHIGAN 

Allen Park 
Battle Creek 
Birmingham 
Durand 
E. Detroit 

Grand Rapids 
Holland 
Interlochen 
Kalamazoo 

Lansing 
Lowell 
Midland 
Mt. Clemens 
Muskegon 

Niles 

Novl 

Oscoda 

Perry 

Pontiac 

Portage 

Riverview 

Roseville 

Sterling Heights 

MINNESOTA 

Blaine 

Burnsvllie 

Crystal 

Edina 

Minneapolis 

Mmnetonka 
Roseville 
St. Paul 



MISSOURI 

Familngton 
Flat River 
Florissant 
Jelferson City 
St. Louis 



NEBRASKA 

Lincoln 
Omaha 

NEVADA 

Carson City 
Las Vegas 

NEW HAMPSHIRE 

Newington 

Salem 

West Lebanon 

NEW JERSEY 
Atlantic City 
Cliffside Park 
Hackettstown 
Mornstown 
Plainsboro 

NEW MEXICO 

Albuquerque 
Sanla Fe 

NEW YORK 

Amherst 



Hazel's Books 
Capital Classics 



Eastern Newsstand 
World Eye Bookshop 
Book Maze 
Colonial Pharmacy 
Computer Plus 
Paper Store. Inc. 
Newsb-eak. Inc. 



Book Nook, Inc. 
Mickey's Newsstand 
Border's Book Shop 
Robbms Electronics 
Book Center of E. Detroit 
Merit Book Center 
Schuter Books, Inc. 
Fris News Company 
Interlochen Bookstore 
The Book Rait 
Michigan News Agancy 
Readmore News Center 
Lowell Electronics 
McCandless, Inc. 
Key Book Shop 
First Edition Bookstore 
The Eight Bit Corner 
Michiana News Service 
Borders Bookshop 
Readmore Book Store 
Perry Computers 
Waterford Bookshop 
John Rollins Booksellers 
The Book Stop 
New Horizons Book Shop 
Booklover's Shop 



Shinder's Northcourt Comm. 
Shinder's Burnsville 
Shinder's Crystal Gallery 
Shinder's Leisure Lane 
Baster's Books 
Shinder's (2 Locations! 
Shinder's Ridge Squar 
Shinder's Roseville 
Shinder's Annex 
Shinder's Mapiewood 
Shinder's St. Pauls 

Ray's TV s Radio Shack 
Ray's TV S Radio Shack 
Book Brokers Unlimited 
Cowley Distributing 
Book Emporium 
World News — Westport 



Nebraska Bookstore 
Nelson News 



Bookcellar 
Hurley Electronics 
Steve's Books & Magazines 

Winebaum's Smoke Ring II 

Booksmith 

Verham News Corp. 



Atlantic City News Agency 
Garden State News 
Bach's Drug & Surgical 
Magazines Plus 
Cover-to- Cover Books. Inc. 



Page One Newsstand 
Downtown Subscription 



Village Green-Buffalo Books 
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Buffalo 


Elmwood Bultalo Books 


Pittsburgh 


Central Wholesale 


Biooks 


Double "D" A.S.C. Radio Shack 


Cortlanfl 


Reading Work) 


Wesl Chester 


Chester County Book Co. 


Calgary 


Billy's News 


Dansville 


Book Don 


York 


The Computer Center of York 


Claresholm 


Radio Shack Associated Stores 


Elmira Heighls 


Southern Tier News Co.. Inc. 




Tollgate Bookslore 


Drayton Valley 


Langard Electronics 


Fredonia 


On Line: Computer Access Center 






Edmonton 


CMD Micro 


Hudson Falls 


G A West & Co. 


RHODE ISLAND 




Falrvlew 


D.N.R. Furniture & TV 


Huntington 


Oscar's Bookshop 


Newport 


Bellevue News 


Fox Creek 


Fox City Color & Sound 


Mamaroncek 


Reader's Market 


Pawtuckel 


Paperbacks Plus 




A.S.C. Radio Shack 


New York 


Barnes & Noble - Sales Annex 


Warwick 


Reader's Market 


Fl Saskatchewan 


Ft Mall Radio Shack. A.S.C. 




Coliseum Books 


West Warwick 


A Novel Place, Inc. 


Grande Cache 


The Stereo Hut 




Eastern Newsstand 






Grande Centre 


The Book Nook 




Grand Central Station, Track 37 


SOUTH CAROLINA 




Hinton 


Jim Cooper 
L S S Stereo 




200 Park Ave.. (Pan Am #1 ) 


Charleston 


New Life Bookstore 


Innislail 




55 Water Street 


Charleston His. 


Software Haus, Inc. 


Leduc 


Radio Shack Associated Stores 




World Trade Center #2 


Clemson 


Clemson Newsstand 


Leihbrdge 


Daialron 




First Stop News 


Columbia 


Capital Newsstand 


Lloydminister 


Lloyd Radio Shack 




Idle Hours Bookstore 


Florence 


Ray's »1 


Okoloks 


Okotoks Radio Shack 




International Smoke Shop 


Greenville 


Palmetto News Co. 


Peace River 


Radio Shack Associated Stores 




Jonil Smoke 


Spartanburg 


Pic-A-Book. Inc. 




Tavener Software 




Penn Book 




Software City 


St. Paul 


Walter's Electronics 




State News 






Sleltler 


Steltler Radio Shack 




World Wide Media Services 


TENNESSEE 




Slralhmore 


Wheatland Electronics 


Rochester 


Microcom Software 


Brentwood 


Bookworld »5 


Taber 


Pynewood Sight & Sound 
Wesllock Stereo 




Tandy Users Group 


Chaltanooga 


Anderson News Co. 


Weslkxk 




Rochester Books. Inc. 




Guild Books S Periodicals 


Welaskrwin 


Radio Shack 




Village Green 


Goodlettsviile 


Bookworld 








World Wide News 


Knoxvilie 


Anderson News Co. 


BRITISH COLUMBIA 


Burnaby Compulil 


Troy 


The Book End 




Davis- Kidd Booksellei 


Burns Lake 


VT. Video Works 






Nashville 


Bookworld (locations) 


Campbell River 


TRS Electronics 


NORTH CAROLINA 






Davis-Kidd Booksellers 


Chillrwack 


Charles Parker 


Cary 


News Center in Cary Village 
University News & Sundry 




Floppy's Disc Software 


Coquitlam 


Cody Brooks LTD 


Chapel Hill 




Mosko's Place 


Coortenay 
Dawson Creek 


Rick's Music & Stereo 


Charlotte 


Omnibus 




R.M. Mills Bookslore 


Bell Radio & TV 




Papers & Paperbacks 


Smyrna 


Delker Electronics 


Golden 


Taks Home Furnishings 
Langley Radio Shack 
Oliver's Books 


Clemmons 


K & S Newsstand 






Langley 


Galfney 


Gaffney Bookstore 


TEXAS 




Nelson 


Highpoinl 


K & S Newsstand 


Amarillo 


Hastings Books & Records 


New Westminster 


Cody Books LTD 


Kernersvtlle 


K 8 S Newsstand 


Arlington 


Bookslop 


Parksville 


Parksville TV 


Lexington 


Martin's News Stand 


Ausnn 


Books lop 


Penliclon 


O.J.'s 


Walkertown 


K S S Newsstand 




University Co-Op 




Four Corner Grocery 
Sidney Electronics 


Winston-Salem 


Book Nook 


Big Spring 


Poncho's News 


Sidney 




K & S Newsstand (3 Locations) 


Dallas 


Bookslop 


Smiihers 


Wall's Home Furniture 




Rainbow News Ltd. 




Maxwell Books 


Squamish 


Kotyk Electronics 






Desoto 


Maxwell Books 


Vancouver 


Active Components 


OHIO 




Elgin 


The Homing Pigeon 




Friendlyware Computers 


Akron 


Churchill News & Tobacco 


Ft. Worth 


Trinity News 




Granville Book Co. 




Manhattan Music. Inc. 


Houston 


Bookstop 




Siliconnections Books LTD 


Chagrin Falls 


Inside Story 


San Anlonio 


Bookstop 


100 Mile House 


Tip Top Radio & TV 


Chardon 


Thrasher Radio & TV 










Cincinnati 


Cinsoft 


VERMONT 




MANITOBA 




Cleveland 


Erieview News 


Essex Junction 


Glngeric, LTD 


Aitona 


LA Wiebr Ltd. 


Columbiana 


Fidelity Sound & Electronics 


Manchester Center 


Northshire Bookstore 


Lundar 


Goranson Elec 


Columbus 


Beechcraft Newsstand 






Morden 


Central Sound 




B5 Software 


VIRGINIA 




The Pas 


Jodi's Sight & Sound 




Headline Newsstand 


Alexandria 


King Street News 


Selkirk 


G.L. Enns Elac. 




The Newsstand 




MTV Central Newsstand 


Virden 


Archer Enterprises 


Dayton 


Books & Co. 


Falls Church 


Skyline Newsstand 








Huber Heighls Book & Card 


Franklin 


The Bookhaven 


NEW BRUNSWICK 






Miami Valley News Agency 


Hampton 


Benders 


Monclon 


Jeffries Enterprises 




Wilke News 


Lynchburg 


Sell Serve Software 


Sussex 


Dewitt Elec. 


Dublin 


Book Barn 


Richmond 


Book Gallery 








Sibert Enterprises 




Volume 1 Bookstore 


NEWFOUNDLAND 




Fairborn 


News- Readers 


Springfield 


Springfield Central 


Botwood 


Seaport Elec. 




Sandbox Micro Systems 


Woodbridge 


Polomac Mill Central News 


Carbonear 


Slade Realties 




Wilke's University Shoppe 










Findley 


Open Book 


WASHINGTON 




ONTARIO 




Fremont 


The Open Book 


Pon Angeles 


Port Book a News 


Angus 


Micro Computer Services 


Lakewood 


Lakewood Inlernalional News 


Seattle 


Bulldog News 


Aurora 


Compu Vision 


Miamisburg 


Wilke News 


Tacoma 


O'Leary's Books 


Concord 


Ingram Software 


TitTm 


Paper and Ink 






Exceter 


J. Madeane & Sons 


Toledo 


Owl's Bookstore 


WEST VIRGINIA 




Hanover 


Modern Appliance Centre 


Warren 


Book Nook. Inc. 


Huntington 


Nick's News 


Huntsville 


Huntsville Elec. 


Xema 


Fine Print Books 


Parkersburg 


Valley News Service 


Kingston 


T.M. Computers 


Youngslown 


Plaza Book & Smoke Shop 


South Charleston 


Spring Hill News 


Listowel 
South River 


Modern Appliance Centre 
Max TV 


OKLAHOMA 




WISCONSIN 






Dennis TV 


Bartlesville 


Betty's Book Rack 


Appieton 


Badger Periodicals 


Toronto 


Gordon and Gotch 


Slillwaier 


Caravan Books 


Cudahy 


Cudahy News & Hobby 






Taklequah 


Thomas Sales. Inc. dba Radio Shack 


Green Bay 


Bosse's. Inc. 


QUEBEC 




Tulsa 


Sieve's Book Store 


Kenosha 


R.K. News, Inc. 


LaSalle 


Messageries de Presse Benjamin 


OREGON 




Madison 


Pic A Book 

20th Century Books 


Pom. Rouge 


Boutique Bruno Laroche 


Beaverton 


Tech Books 




University Bookstore 


SASKATCHEWAN 




Eugene 


Libra Books - Book Mark 


Milwaukee 


Schwartz Bookshop 


Asslniboia 


Telstar News 


Newport 


Sea Towne Books, Inc. 


Racine 


East Side Emporium 


Estevan 


Kotyk Electronics 


Portland 


Fifth Avenue News 




U-W-M Bookstore 


Moose Jaw 


D8S Computer Place 


Salem 


Capitol News Center 


Waukesha 


Holl Variety 


Nipiwan 


Cornerstone Sound 




Checkmate Book 


Wausau 


Janke Book Slore 


Regina 


Regina CoCo Club 
Software Supermarket 
Everybody's Software Library 


PENNSYLVANIA 




AUSTRAUA 




Saskatoon 


Allentown 


Owl Services 


Blaxland 


Blaxland Computers 


Shellbrooke 


Gee. Laberge Radio Shack 


Altoona 


Newborn Enterprises 


KingsforO 


Paris Radio Electronics 


Tisdale 


Paul's Service 


Ambler 


Ambler News Center 






Unily 


Grant's House of Sound 


Feasterville 


Global Books 


CANADA: 








King ot Prussia 


Gene's Books 


ALBERTA 




YUKON 




Laureldale 


Software Corner 


Ban" 


Band Radio Shack 


Whilehouse 


H & O Holdings 


Philadelphia 


Popi. Inc. 12 locators) 


Bonnyville 


Paul Tercier 





Also available at all B. Dalton Booksellers, and selected Coles and W. H. Smith in Canada, 
Waldenbooks, Pickwick Books, Encore Books, Barnes & Noble, Little Professors, Tower Book & 
Records, Kroch's & Brentano's, and Community Newscenters. 
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Advertisers Index 



We encourage you to patronize our advertisers — all of whom support the Tandy Color 
Computer. We will appreciate your mentioning the rainbow when you contact these firms. 



Alpha Software Technologies 1 19 

B & B Software 49 

Burke & Burke 97 

Cer-Comp, Ltd 43 

CoCo Pro 25 

CoCo Gallery on Disk 18 

Colorware 19 

CompuServe 79 

Computer Island 1 15 

Computer Plus 3 

CRC/Distro 53 

Danosoft 41 

Dayton Associates of W.R. Hall, Inc. 101 

Delphi 121 

Dr. Preble's Programs IBC 

E.Z. Friendly Software 99 

Eversoft Games. Ltd 115 

Federal Hill Software 55 

Frank Hogg Laboratories 37 

G.T.T.D. Software 47 

Gimmesoft 75 

Granite Computer Systems 1 1 1 

Hawksoft. Inc 77 

Howard Medical 130 

JR & JR Softstuff 57 

JWT Enterprises 29 

Kenneth Leigh Enterprises 27 

Metric Industries 63 

Microcom Software 7 

Microcom Software 9 

Microcom Software 1 1 

Microcom Software 13 

Microcom Software 15 

Microcom software 17 

Microdeal BC 

Microtech Consultants Inc 125 

Northern Technologies 51 

NRI Schools Insert 

Oblique Triad 65 

Orion Technologies 39 

Owl-Ware 69 

Owl-Ware 70 

Owl-Ware 71 

PCM 83 

Perry Computers 117 

Puritas Springs Software 87 

r3 Systems 87 



Rainbow Bookshelf 30 

Rainbowfest 90 

Rainbow CoCo History Book 103 

Rulaford Research 47 

Second City Software 129 

Spectrosystems 51 

SPORTSWARE 107 

Sugar Software 95 

Sundog Systems IFC 

Supersoft, Inc 45 

T & D Software 23 




T&D Software 57 

T&DSoftware 89 

T&DSoftware 109 

Tandy/Radio Shack 33 

Tandy/Radio Shack 1 15 

Tepco 58 

True Data Products 8 1 

Try-O-Byte 77 

Wasatchware 29 

Zebra Systems 61 



Call: 

Belinda Kirby 

Advertising Representative 
(502) 228-4492 




□ Call: 

Kim Vincent 

Advertising Representative 

(502) 228-4492 



The Falsoft Building 
9509 U.S. Highway 42 
P.O. Box 385 
Prospect, KY 40059 
FAX (502) 228-5121 
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UltjpflusE ■ 

The Ultimate Music Editor for the CoCo 3 -^ 

"What if... 

all CoCo music programs were this good?" 

UltiMusE III is a MIDI 'Notation Sequencer'. It lets you write and edit 
sheet music on a 640x192 graphics screen using the mouse, play it on 
ANY MIDI-equipped synthesizer(s), and print out the score... Written 
by an experienced computer professional who is also a serious ama- 
teur musician and composer. With UltiMusE III, there is no more 'faking' 
to play what you want to hear! Perfect for the trained musician, 
UltiMusE Ill's natural notation also helps a beginner to copy a favorite 
piece of sheet music just as it looks. Why should your music sound like 
a machine? UltiMusE III has a wide pitch range, from 4 octaves below 
Middle C to over 3 above. Each staff has a 4-octave range centered on 
one of four clefs - Treble, Guitar, Bass, and Double Bass. Staff place- 
ment, clefs, and part and MIDI channel assignments can ALL be 
edited... Professional software should use a professional Operating 
System. UltiMusE III uses the advanced feaJmes of OS-9 Level II and 
does not interfere with its windowing and/ ^iqnin any way. 

SYSTEM REQUIREMENTS: CoCo 3 
with at least 256K memory, OS-9 Level 2, 
Mouse or Joystick (Hi-Res Joystick Adapter 
recommended), Synthesizer(s) with MIDI- 
In jack, plus a Serial to MIDI cable. Tandy's 
DMP printer, a MIDI Interface Pak, and a 
Multi-Pak are optiona|jjfluipment. 



»£? 



£W 



.96 




I CASIO MT-240 MIDI KEYBOARDTT^I 49.95 

A/C POWER ADAPTER $14.95 

SERIAL TO MIDI CABLE $19.95 



Newspaper^ 




FINAL EDITION 



DeskTop PublishingfortheCoCo3just got 
better! With the ALL NEW NEWSPAPER 
PLUS - FINAL EDITION, you can create 
complete and sophisticated Banners, 
Headlines along with Text Columns and 
Graphics. Bring in different pictures, fonts, 
fill patterns, and text from disk and create a 
publication with that pro-look to it. Comes 
complete with 22 fonts, 50 NewsArt pic- 
tures and fill patterns. 1 28k or 51 2k Disk 

STILL ONLY $48.95 



~\ 



'FINAL EDITION' is just a news 
print slogan meaning the very 
latest published issue. In the 
case of Newspaper Plus - Final 
Edition, it means the latest up- 
grade is NOW available. Here 
are some of the added fea- 
tures being offered; 

"Text import with Left, Right, 

Centered & Justification 
•RamDisk Utility (512k) 
"Stretch, Shrink & Com- 
press picture utility 
"A new 'Design Your Own' 

layout feature 
* Full Font import ability 
•Text to Picture wrap-around 
" Disk Transfer Utility (512k) 



WORD SEARCH: $22.95 

A Word Search Puzzle Generator Utility 
program. CoCo 1,2,&3 Disk 

MORSE CW: $19.95 

Acomplete Morse Code Totorial program. 
CoCo 1.2.&3 Disk 

SPACE RAIDERS: $16.95 

A FAST ACTION ARCADE GAME. Test your 
skills! CoCo 1.2.&3 Disk 

STARPIC UTILITY: $19.95 

DMP-PIC UTILITY: $19.95 

GEM-PIC UTILITY: $19.95 

A complete Graphics Printing Utility pro- 
gram for the Star NX-1 000 or Tandy's DMP 
or the Gemini Dot Matrix printers. Works in 
an easy to use Point 'N Click pull down 
menu environment. A MUST HAVE printing 
utility. CoCo 1,2,&3 Disk 

CheckOQMV: #2.1 $25.95 

Check09MV interacts with MultiVue for 
FAST & EASY checkbook balancing. No 
more waiting for your bank statement for 
an ending balance. Check09MV will pro- 
duce a check-by-check running total of 
your account in an easy to use format. End 
those monthly surprizes! 512k 

MASTER CATALOG: $19.95 

MASTER CATALOG 3: $19.95 

Organize your floppy disks with Master 
Catalog. Supports single & double sided 
drives, alphabetize, sort, and search & find 
up to 3,000f ilenames. Program supports a 
Column Format Hard Copy and is 100% 
MLfor lightning response. When ordering, 
please specify CoCo 1,2, or 3 version. 

START OS-9 $32.95 

An Enjoyable, Hands-On Guide To OS-9 
Level 2 On The Color Computer 3. Work 
from a step-by-step easy to follow tutorial 
book and program disk. Requires 2 drives, 
512K and an 80-column monitor. START 
OS-9.. .NOW NO MORE EXCUSES. 

Basic Screen Editor $19.95 

A-DOS3 $34,95 

MY-DOS $14.95 

EPROM BURN SERVICE $15.00 

Ram Disk Lightning $16.95 

Printer Lightning $1 6.95 

Backup lightning $16.95 

VIP Library $149.95 

VIPWriterlll $79.95 

VIP Calc III $69.95 

VIP DataBase III $69.95 

OS-9Solution $24.95 

Schematic Drafting Processor $24.95 

Tape to Disk/Disk to Tape $19.95 

Multi-Pak Crack $24.95 

TelePatch $24.95 

Blackjack Royale $16.95 

CoCo Calender Deluxe $19.95 

NewsArt A thruZ 

26 disks filled with useable clip art for 
Newspaper Plus & Newspaper Plus - Final 
Edition. $100.00 for the complete set. 



APBBS Ver: 3.00.00 SPECIAL INTRODUCTORY PRICE OF $39.95 

QUESTION: Have you ever wondered how someone can sell and support two different BBS 
programs while claiming both to be the BEST? Good question you ask...we think so too!!! With 
the exclusive SCScommercial release of Mike Guzzi's APBBS program we end ayears quest for 
a POWERFUL, HIGH QUALITY, and AFFORDABLE BBS program. Besides these three require- 
ments, we also demanded full author assistance to help answer your questions and lend 
technical support. Mike Guzzi has not only written such a program in APBBSbut has also offered 
his expertise and knowledge as the programmer and a SYSOP. Giving you FULL SUPPORT 
AFTER THE SALE! APBBS requires a CoCo3 w/51 2k memory, at least two double sided floppy 
drives (a hard drive is strongly recommended), OS-9 Level2, and RS-232 pak. APBBS is not for 
everyone. It is designed and intended for the SYSOP who demands performance and support. 



MASTER CARD - VISA 
C.O.D.- MONEY ORDERS 

ADD $2.50 SHIPPING 
($4.50 FOREIGN) AND 
AN ADDITIONAL $2.50 
FOR C.O.D. ORDERS 

Allow 1 to 3 weeks delivery 



m 



ffl 



P.O. BOX 72956 

ROSELLE, IL 

60172 

ORDER 
708-653-5610 

BBS 
312-745-1387 




to take advantage of from 64K up 
to a full 512K. Requires low cost 
amplifier (RS cat. #277-1008) and 
any microphone. Will run on a 
CoCo 1, 2, or 3. Vocal Freedom 
Disk: $34.95. Optional Hacker's 
Pac Disk: $19.95. Disk for both: 
$49.95 



llwntat d'wixijym, 



ioacfti(/> Junfu/ni/ria 

Reads your master disk once and 
then makes super fast multiple 
disk backups on all your drives! 
No need to format blank disks 
first! Supports 35, 40 or 80 track 
drives. This utility requires 
512K. Disk: $19.95 






uAwnwL 



This is a fascinating CoCo 3 game 
of skill and coordination. Pyr- 
amix is 100% machine language 
written exclusively to take ad- 
vantage of all the power in your 
128K CoCo 3. The Colors 
are brilliant, the gra- 
phics sharp, the action 
fast. Written by 
Jordon Tsvetkoff 

and a product of 

ColorVenture. Disk: $19^95^ 





Would your friends be 
impressed if your com- 
puter could read their 
minds? Mental Freedom 
uses the techniques of 
Biofeedback to control video 
game action on the screen. Tele- 
kinesis? You control the action 
with your thoughts and emo- 
tions. Your goal is to materialize 
and levitate objects with the 
power of your mind while avoid- 
ing the insidious cobra. Mental 
Freedom teaches peace of mind 
in the face of adversity. Mental 
Freedom even talks in a per- 
fectly natural voice without 
using a speech synthesizer! Re- 
quires Radio Shack's low cost 
Biofeedback monitor, Cat. #63- 
675. Will run on a CoCo 2 or 3 but 
not CoCo 1. Disk: $24.95 



mm iE'Jsl 



t/ocal uwiximrv hMjmma h/\m 



/ocal Freedom turns 
your computer into a digital 
voice recorder. The optional 
Hacker's Pac lets you incorpo- 
rate voices or sounds that you 
record into your own BASIC or 
ML programs. This is not a syn- 
thesizer. Sounds are digitized 
directly into computer memory 
so that voices or sound effects 
sound very natural. One "off- 
the-shelf" application for Vocal 
Freedom is an automatic message 
minder. Record a message for 
your family into memory. Set Vo- 
cal Freedom on automatic. When 
Vocal Freedom "hears" any 
noise in the room, it plays the 
prerecorded message directly 
from its Random Access Memory 
with amazing fidelity! You may 
also SAVE or LOAD sounds to and 
from DISK. VF also tests memory 




These three utilities give 
real power to your CoCo 

- \Mi/mdjm JjjMrwm 

This is the best Ramdisk avail- 
able. It lets you have up to 4 
mechanical disk drives and 2 
Ram drives on-line and is fully 
compatible with our Printer 
Lightning. Disk: $19.95 

Load it and forget it — except for 
the versatility it gives you. 
Never wait for your printer 
again! Printer runs at high 
speed while you continue to 
work at the keyboard! Disk: 
$19.95 



Produce standard grade 2 
Braille on a Brother daisy wheel 
printer. Easy to use for sighted 
or blind user. No knowledge of 
Braille is necessary. Call for free 
sample. Will run on CoCo 1, 2, or 
3. Disk: $69.95 

VDOS, The Undisk, ramdisk for 

the CoCo 1 or 2 only. Available 

only on tape: $24.95 

VDUMP, backup Undisk files to 

single tape file. Requires VDOS. 

Tape: $14.95 

VPRINT, Print Undisk directory. 

Requires VDOS. Tape: $9.95 



Add $2.50 shipping/ 
handling in USA or 

CANADA 

Add $5.00 to ship to 

other countries 

Dr. Preble's Programs 
6540 Outer Loop 

Louisville, KY 40228 

24 Hour Hot Line 

(502) 969-1818 

Visa, MC, COD, Check 




KEYBOARD 

• 101 Keys with tactile touch 

• coiled cable with RF filter 

• can be used with Tandy or 
IBM and auto sensor XT or AT 

• special adaptor for CoCo 

KB - 1 Keyboard $98.00 

KB - ACoCo Adaptor $49.00 




DRIVE PLUS 

■ Double sided 360K MPI 52 
Disto DC- 7 controller and cable $178.45 
Double Drive $310 (5 ship) 




SLOT-PACK II 

• replacement for multipack 

• 3 slots. 2 switchable 

• X slot for RS-232 and modem 

• middle slot can take disk 
controller or ROM cartridge 

• 1 2 Volt adaptor needed for B & B 
and old drive controllers 

MP-II slot pack II $89.45 

AC-12 12 volt adaptor $14.95 




MAGNAVOX 1CM 135 

• new analog with stereo sound and 
high grade compatible 

• 640 X 240 resolution @ 12 MHz 
with .42 dot pitch 

CC-3 RGB Cable $19.95 

$298< $14shi P>| 




MAGNAVOX 7622 AMBER 
80 Column OR 7652 GREEN 

Built in Speaker $g8(7ship) 











MEMORY 

1 »512K Bare Board $40 
1 .Populated 512K& Software $89 
| • 64K 8 Chip for CoCo 2 $30 



HARD DRIVE 

20,000,000 Bytes or the equivalent to 125 
R.S. 501 's on line are packed into this hard 
drive, pre installed and ready to run. This 
complete easy to use package includes a 
Seagate 20 Meg Hard Drive, a DTC 5150 
Controller and interface," heavy duty case, 
power supply and fan and a 1 year war- 
ranty. This 20 meg Hard Drive will also 
work with Tandy and IBM clones. Basic 
driver, $29.95, lets you access this hard 
drive without need for OS-9. 

See Rainbow Reviews 8/89 



(9 ship) 




HD-1 10 Meg** 


$349 


HD-2 20 Meg 


$499 


HD-3 30 Meg 


$549 


HD-4 40 Meg 


$598 


'Burke & Burke "reconditioned 





DISTO BOX 




DC-7 


Mini Controller 


$75.0ol 


DC-3 


Super Controller 


$98,001 


DC-6 


No Halt Controller 


$129.00l 


MBA-1 


3 in 1 Board 


$69,451 


MEB 


Mini Expansion Bus $ 30.00 1 


RS232 


RS-232 Port 


$ 49.95 1 


DC-3C 


Clock and 






Parallel Port 


$ 40.00 1 




PRINTERS 




STARNX-1000R COLOR $249.00 | 


STARNX-1000II 


$189.00 1 





HOWARD BOX 


VA-1 


Video Converter $ 29.45 1 


PAL-1 


Multipak Upgrade 




for 26-3024 $ 14.95 1 


PAL-2 


Multipak Upgrade 




for 26-3124 $ 14.95 1 


RS-1 


1.1 ROM Chip 




for Controller $ 25.00 


55BV 


TEAC Floppy 




for 501 or 502 $ 98.00 


52 


MPI 360K 




Bare Floppy $ 78.00 1 


HR-2 


Dual Hi-res Adapter$ 39.45 


1200HC 1200 Baud 




Modem $119.00 | 





30 Day Money Back Guarantee 

Howard Medical's 30-day guarantee 
is meant to eliminate the uncertainty 
of dealing with a company through 
the mail. Once you receive our 
hardware, try it out; test it for 
compatability. If you're not happy 
with it for any reason, return it in 30 
days and we'll give your your money 
back (less shipping.) Shipping 
charges are for 48 states. APO, 
Canada and Puerto Rico orders are 
higher 



Howard Medical Computers 

1690N. Elston 

Chicago, Illinois 60622 

Order Status and Inquiries 
312-278-1440 

Master Card • Visa • Discover 

American Express 

C.O.D. • School PC's 

Order Line 
800-443-1444 






S/ofs & Cards 



VGA Graphics Depicted 
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576 S. Telegraph 

Pontiac, Ml 48053 

« (313) 334-5700 



Did y ou ever dream of visit ingVECi AS, but you weren't sure what to expect — or if you 
would be able to afford it'.' Well, now you can plaj your favorite slot machine, or sit 
down at the blackjack table without even leaving the comfort of your home. Browse 
through different style slot machines (man> different Multiplier slots). > isitthechange 
booth if- or is thiit when? - you run out of cash, without feeling a pain in your wallet. 
Walk around the corner and sit down at anj of a number of different style card games. 
Enjoj video five card draw poker - where it lakes jacks or hotter to win. Or play 
Blackjack against the ever treacherous house dealer. Play Hi-Low and wager the max 
ever} chance, vou get. Do you like Keno? Ifso. choose your numbers, then sit back and 
wait to see if lhe\ are drawn! 



All versions displaj vivid true to \ EGAS graphics. Whatever your game. Slots & 
Cards has il for you! Slots X Cards is available for the IBM PC & Compatibles, 
Commodore Amiga, Atari SI and the CoCo III. 

See your local dealer for orders and information or call us directly 



